use strict;use warnings;tie my$t,'A';$t=".rekcah lreP rehtona tsuJ";
print while$_=$t;package A;sub TIESCALAR{bless\my$s,shift}sub STORE{
${$_[0]}=$_[1]}sub FETCH{chop${$_[0]}}