< nit > If you run this with warnings, it will complain about:

   @listA[0] = [qw(1 foo bar)];
   @listB[0] = [qw(1 bar baz)];
[download]

/methinks you meant:

   $listA[0] = [qw(1 foo bar)];
   $listB[0] = [qw(1 bar baz)];
[download]

< /nit > Either way, I guess it runs...

perl -e 'print reverse qw/o b n a e s/;'