for (a,b,c,d) { print "$_\n" if $a{$_} } OUTPUT: a