Select Code to Download

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

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

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