Select Code to Download

#!/usr/bin/env perl
use warnings;
...
    }
}
say "@rand";

for (@rand) {
    if ( $rand[0]<0 ) { next; }
    shift @rand;
}

for (@rand) {
    if ( $rand[0]<0 ) { next; }
    else { shift @rand; }
}

for (@rand) {
    if ( $rand[0]>=0 ) { shift @rand; }
    else { next; }
}