Select Code to Download

#!/usr/bin/perl -w

...
my %encoding=("A"=>"D","B"=>"E","C"=>"F");
print myencode("ABC",\%encoding);