# 1 2 3 # 3456789 123456789 123456789 123456789 print map{chr$ARGV[0]+ord}split//,pop # sadly i could not come up with a split-less soution that # is short enough