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