#!/perl/bin/perl
use strict;
use warnings;
use Data::Dumper;

for my $subarray (@$array) {
  push(@$subarray, 'foo');
}

print Dumper($array);