sub generate {
  my ($self, $OBJS) = @_;
}

##</code><code>##

sub generate {
  my ($self, [@$OBJS]) = @_;
}

##</code><code>##

#!/usr/bin/perl -w

use strict;

my $original =[1,2, 3];

my $shallow_original=$original;
my $deep_original=[@$original];

$original->[1]=42;

print "original: @$original\n";
print "shallow: @$shallow_original\n";
print "deep: @$deep_original\n";


##</code><code>##

original: 1 42 3
shallow: 1 42 3
deep: 1 2 3