while (<>) { my($fn,$ln,$zip,$cn,$to)= split(/","/); $fn=substr($fn,1); #get rid of the first " next if ($fn eq $input{'FName'} and $ln eq $input{'LName'} and $cn eq $input{'county'}); print; }