my @backward_chars = ('e', 's', 'u');
my $watch_out = (reverse join "",@backward_chars) . " Data::Dumper;";
eval $watch_out;
my $x = Dumper([1,2,3]);
print $x;