Select Code to Download

use strict;
use warnings;
use List::MoreUtils qw/zip natatime/;
...
}

print dump(\%hash);

push @{$hash{$key}}, $value;