Select Code to Download

my @array = subroutine($file1, $list1);
    #foreach my $item(@array) {
        #print "$item\n";
   # }

   my %hash;
while (@keys and @values) {
...
print "$k => $hash{$k}\n";     

 }