use warnings;
use strict;

@_ = 'a' .. 'c';

print @_[ 
map $_ -1, 
grep { $_ > 0 and $_ <= 1 } 
map { $_ + 1 } -1 .. 1
];

##</code><code>##

Missing comma after first argument to map function at map_inside_splice.pl line 12, near "]"

##</code><code>##

use warnings;
use strict;

@_ = 'a' .. 'c';

print @_[ 
map {$_ -1} 
grep { $_ > 0 and $_ <= 1 } 
map { $_ + 1 } -1 .. 1
];

##</code><code>##

a