Please use more words when asking a question, and describe what you want to happen, and how its different from what it happens

As your question is written I cannot determine what you're asking

So I offer you this (dd does printing)

code	output
#!/usr/bin/perl -- use strict; use warnings; use Data::Dump qw/ dd /; my @feet = qw/ left right /; my @shoes = qw/ loader sneaker boot /; my @things; dd { feet => \@feet, shoes => \@shoes, things => \@_ }; push @shoes, qw/ slippers /; dd { feet => \@feet, shoes => \@shoes, things => \@_ }; push @things, \@feet, \@shoes; dd { feet => \@feet, shoes => \@shoes, things => \@_ }; [download]	{ feet => ["left", "right"], shoes => ["loader", "sneaker", "boot"], things => [], } { feet => ["left", "right"], shoes => ["loader", "sneaker", "boot", "slippers"], things => [], } { feet => ["left", "right"], shoes => ["loader", "sneaker", "boot", "slippers"], things => [], } [download]

Also please read perlintro and use Basic debugging checklist (among others)

haha, what the heck is a "loader" shoe? typos fixed

code

output

#!/usr/bin/perl -- use strict; use warnings; use Data::Dump qw/ dd /; # sub dd { use Data::Dumper; print Data::Dump +er->new([@_])->Sortkeys(1)->Indent(1)->Useqq(1)->Dump . "\n"; } my @feet = qw/ left right /; my @shoes = qw/ loader sneaker boot /; my @things; dd { feet => \@feet, shoes => \@shoes, things => \@things }; push @shoes, qw/ slippers /; dd { feet => \@feet, shoes => \@shoes, things => \@things }; push @things, \@feet, \@shoes; dd { feet => \@feet, shoes => \@shoes, things => \@things }; [download]

{ feet => ["left", "right"], shoes => ["loader", "sneaker", "boot"], things => [], } { feet => ["left", "right"], shoes => ["loader", "sneaker", "boot", "slippers"], things => [], } do { my $a = { feet => ["left", "right"], shoes => ["loader", "sneaker", "boot", "slippers"], things => ['fix', 'fix'], }; $a->{things}[0] = $a->{feet}; $a->{things}[1] = $a->{shoes}; $a; } [download]

"loader" -> "forklift" -> "high heels"?