Select Code to Download

use warnings;
use strict;
...
grep { $_ > 0 and $_ <= 1 } 
map { $_ + 1 } -1 .. 1
];

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

use warnings;
use strict;
...
grep { $_ > 0 and $_ <= 1 } 
map { $_ + 1 } -1 .. 1
];

a