use warnings;
use strict;

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

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