If you're just looking for a way to create, in a Perlish way, a hash that does rot13 character mappings, then try something like this:

my %rot13;
@rot13{'a'..'z'} = ('n'..'z','a'..'m');
[download]

Dave.