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

##</code><code>##


##</code><code>##

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

 }