perl -wE 'my @a = (0,2,3); map say, @a if $a[1]'