while () { chomp; print "$_ $map{$_}\n"; }