my %hash = ($0,$1 if / ^^ (\T*) \t (\N*) / for $fh.lines);