#!/usr/bin/perl
$b="a b c d e f g h i j";
$a="1 3 45 65 7 89 67 9 8 2";
@seq=split(/ /,$b);
@arr=split(/ /,$a);
$beg=0;
$end=0;
for($i=0;$i<scalar(@arr);$i++){
	if ($arr[$i]<15){
		$beg++;
	}
	else{
		last;
	}
}
@arr_rev=reverse(@arr);
for($i=0;$i<scalar(@arr_rev);$i++){
	if ($arr_rev[$i]<15){
		$end++;
	}
	else{
		last;
	}
}
for ($i=0+$beg;$i<scalar(@arr)-$end;$i++){
		print "$seq[$i] ";
}
print "\n";
for ($i=0+$beg;$i<scalar(@arr)-$end;$i++){
		print "$arr[$i] ";
}