Select Code to Download

use Data::Dumper;

...

print Dumper(\@a);
print Dumper(\@bar);

$VAR1 = [
          'bar'
...
$VAR1 = [
          'foo'
        ];