print {$fh{record[0]}} $_;