my %byFile = map { reverse split } <DATA>;

##</code><code>##

print map {"$_\t=>$byFile{$_}\n"} keys %byFile;