Select Code to Download

#!/usr/bin/perl -w

...
%hash = map {$_ => $_} split //, $str;

print qq{$_ => $hash{$_}\n} for sort keys %hash;

# ./t.pl
a => a
...
e => e
f => f
g => g