Perl6::Attributes

package Foo;
use Perl6::Attributes;

sub new {
    my ($class) = @_;
    bless {
        a  => 1,
        b  => [ 2, 3, 4 ],
        c  => { hello => "World" },
    } => ref $class || $class;
}

と定義して、

sub example {
    my ($self) = @_;
    $.a;        # 1
    $.b[2];     # 4
    @.b;        # 2 3 4
    $#.b;       # 3
    $.c{hello}; # World
    keys %.c;   # hello
    print "I get the idea";
}

という感じで使えるようです。$self->{a} とか書かなくていいのなら、便利かもと思いました。