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