use warnings;
use strict;

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

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