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

##</code><code>##

use Data::Dumper;

print Dumper(\@a);

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

print Dumper(\@a);

##</code><code>##

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