use List::MoreUtils qw( apply );
@new = apply { chomp; } @old;
@new = apply { tr/a-z/n-za-m/; } @old;