$ perl -E " my( $r, $a, @bba ) = ( 0, 1, 2..4,1,2..4 );  $r = $a ~~ @bba; say $r; "
1