my %hash = map{ chomp; local @_ = split/ /; $_[1] => $_[0]; } <$fh>; #### my %hash = map { chomp; (split / /)[1,0]; } <$fh>;