[...]

for ($start=0;$arr[$start]<15;++$start) {};
for ($end=$#arr;$arr[$end]<15;--$end) {};

print "@seq[$start..$end]\n";
print "@arr[$start..$end]\n";