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