#! perl -slw
use strict;

my @a2 = 'a'..'z';
my $silly = sub{ \@_ }->( @a2 );

splice @{ $silly }, 12, 1, 'the middle';
print "@{ $silly }";
print "@a2";

__END__
C:\test>junk
a b c d e f g h i j k l the middle n o p q r s t u v w x y z
a b c d e f g h i j k l m n o p q r s t u v w x y z