use Data::Dumper;

print Dumper(\@a);

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

print Dumper(\@a);