I recommend the $_ = <>; @f = split; while (<>) { @a{@f}= split; print $a{$field}; } trick from Re: updating Input file.