use Class::Struct;

struct Person 
{
    name => '$',
    age => '$',
    peers => '@',
};

my $p = Person->new();
$p->name("Jason Smythe");
$p->age(13);
$p->peers( ["Wilbur", "Ralph", "Fred"] ) ;

printf"At age %d, %s's first friend is %s.\n", $p->age, $p->name, $p->peers(0);