Select Code to Download

use Data::Dumper;

...
}

die Dumper(%hash);

foreach my $line (@lines) {
    my $key = shift @$line;
...
        push @{$hash{$key}}, @$line;
    }
}