13 for my $i (0..$#alts) {
14 next if ($alts[$i]->[4]);
15 for my $j (($i+1)..$#alts) {
16 if ($alts[$i]->[2] <= $alts[$j]->[2] && $alts[$i]->[3] >= $alts[$j]->[3]) {
22 @alts = sort { $a->[2] <=> $b->[2] } @alts;
23 for my $i (0..$#alts) {
24 next if ($alts[$i]->[4]);
25 print join(' ', @{$alts[$i]}), "\n";