Select Code to Download

my @array = qw/ create  mount  remove /;
...
  \@array,
  ...
];

#!/perl/bin/perl
use strict;
...
}

print Dumper($array);

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