$Just=",rekcah lreP";$another=" rehtona tsuJ";@Why=split('',$another);
@peanut=reverse(@Why);$buy=join('',@peanut);
print$buy;@Perl=split('',$Just);@Unix=reverse(@Perl);$hacker=join('',@Unix);print$hacker;<>;