$_ = "Hello\n";
for my $i(1..26){
    tr/a-zA-Z/b-zaB-ZA/;
    print;
}