Select Code to Download

my @probs =(0,0.1,0.53,0.51,0.59,0.67,0.2,0.04,0.05,0.56,0.89,0.75);

2 5
9 11

my $positions = undef;
...
 else {push @segment, $positions if ($positions); $positions = undef}
}