use strict;
my $a = [ qw(mary had a little lamb with mint jelly) ];
my $b = [ $a->[1..4] ];
my $c = [ @{$a}[1..4] ];

print "a is [ @$a ]\n";
print "b is [ @$b ]\n";
print "c is [ @$c ]\n";


##</code><code>##

a is [ mary had a little lamb with mint jelly ]
b is [ mary ]
c is [ had a little lamb ]


##</code><code>##

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/