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