Select Code to Download

for my $listing (@listings) {
    my @list = grep {length} split '~', $listing;
...

    push @{$hoa{$keys[$_]}}, $list[$_] for 0..$#keys;
}