$_->[1] >= 15 && last or ++$beg for @data; $_->[1] >= 15 && last or ++$end for reverse @data;