Select Code to Download

my @a = qw( a b c d e );
make_view( \my @v, \@a, 2, 2 );  # @v -> splice( @a, 2, 2 );
@v = qw( x y z );
print( "@a\n" );  # a b x y z e

my $a = 'abcde';
substr( $a, 2, 2 ) = 'xyz';
print( "$a\n" );  # abxyze