Select Code to Download

use strict; 
use warnings; 
...
    push @{$hash{$key}}, $value; # push the value on the array 
} 
print Dumper \%hash

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