Select Code to Download

#!/usr/bin/perl

...
push @{$hash{"2"}}, "icky pineapple";

print Dumper(\%hash), $/;

$VAR1 = {
          '3' => [
...
                   'orange'
                 ]
        };

my %hash = (

...
    '5' => [ 'orange' ]

);