my @array = qw(foo bar); 
while (my ($attrib, $value) = each (@array) ) { 
  print "$attrib=$value\n"; 
}

##</code><code>##

my @array = qw(foo bar); 
while (my ($attrib, $value) = each (my %hash = @array) ) { 
  print "$attrib=$value\n"; 
}

##</code><code>##

my @array = qw(foo bar); 
my %hash = @array; 
while (my ($attrib, $value) = each (%hash) ) { 
  print "$attrib=$value\n"; 
}