my @array = qw/ create  mount  remove /;
my $array = [
  ['create', 'mount', 'remove'],
  ['create', 'mount', 'remove'],
  \@array,    # essentially the same values
  \@array,
  ...
];

##</code><code>##

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

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

print Dumper($array);

##</code><code>##

__OUTPUT__
$VAR1 = [
          [
            'create',
            'mount',
            'remove',
            'foo'
          ],
          [
            'create',
            'mount',
            'remove',
            'foo'
          ],
          [
            'create',
            'mount',
            'remove',
            'foo'
          ],
          [
            'create',
            'mount',
            'remove',
            'foo'
          ],
        ];