use Data::Dump;
dd { lastnames => [ qw/ ro sham bo / ] };
__END__
{ lastnames => ["ro", "sham", "bo"] }

##</code><code>##

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

##</code><code>##

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