for my $line (@source) {
        chomp $line;
        my $tmpline = '';
        for my $key (split //, $line) {
            $tmpline .= $map{$key};
        }
        print "$tmpline\n";
    }