use strict;
use warnings;
use Data::Dumper;

my @array = (
	"create", "mount", "remove", "create", "mount", "remove",
	"create", "mount", "remove", "create", "mount", "remove",
	"create", "mount", "remove", "create", "mount", "remove",
	"create", "mount", "remove", "create", "mount", "remove",
	"create", "mount", "remove", "create", "mount", "remove",
	"create", "mount", "remove", "create", "mount", "remove",
	"create", "mount", "remove", "create", "mount", "remove",
	"create", "mount", "remove", "create", "mount", "remove",
	"create", "mount", "remove", "create", "mount", "remove",
	"create", "mount", "remove", "create", "mount", "remove"
);

my @newArray;

while ( my @tmp = splice @array, 0, 3 ) {
	push @newArray, @tmp, 'newelement';
}

print Dumper \@newArray

##</code><code>##

$VAR1 = [
          'create',
          'mount',
          'remove',
          'newelement',
          'create',
          'mount',
          'remove',
          'newelement',
          'create',
          'mount',
          'remove',
          'newelement',
...