Select Code to Download

perldoc perlref

#!/usr/bin/env perl

...

push @{$arr->{car}}, ( 4,3,2,1 );
print Dumper $arr;