my @array = qw- 1 2 3 on 4 5 off 6 7 8 on 9 10 11 12 off 13 14 15 -;

for (@array){
    say if /on/ ... /off/;
}