while (<IN>) {
    my @chars = split //;
    for (@chars) {   # $_ now holds one char per iteration
        my $out = ( exists $name{$_} ) ?  $name{$_} : $_;
        print $out;
    }
}