use Data::Dump;
my %info;
$info{lastnames}[0] = 'ro';
$info{lastnames}[1] = 'sham';
$info{lastnames}[2] = 'bo';
dd \%info;
__END__
{ lastnames => ["ro", "sham", "bo"] }