while (my $key = shift @keys and my $value = shift @values) {
  $hash{$key} = $value;
}
[download]

while (defined (my $key = shift @keys) and defined(my $value = shift @
+values)) {
  $hash{$key} = $value;
}
[download]

What would work is:

while (@keys and @values) {
  $hash{shift @keys} = shift @values;
}
[download]

-- Randal L. Schwartz, Perl hacker

Hmmm. Something strange here.

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

Now, when I uncomment the foreach/print block, it prints as intended. However, when I add:

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

 }
[download]

the program returns only one value per key, while @values contains several whitespace delimited elements.

A hash can only have one value per key. What is it you are really trying to do?

-- Randal L. Schwartz, Perl hacker