Select Code to Download

push @{$a[0]}, "foo";

use Data::Dumper;

...
push @{$a[0]}, "foo";

print Dumper(\@a);

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