use strict;
use warnings;

my $str1 = "a b c  d  e f  g  h i j";
my $str2 = "1 3 45 65 7 89 67 9 8 2";
my @seq  = split (' ', $str1);
my @arr  = split (' ', $str2);
my @data = map {[$seq[$_], $arr[$_]]} 0 .. $#seq;

my $beg  = 0;
my $end  = 0;

for (@data) {
    last unless $_->[1] < 15;
    $beg++;
}

for (reverse @data) {
    last unless $_->[1] < 15;
    $end++;
}

print join (' ', map {$data[$_][0]} $beg .. $#arr - $end), "\n";
print join (' ', map {$data[$_][1]} $beg .. $#arr - $end), "\n";