Select Code to Download

#!/usr/bin/perl
use strict;
...
        return [ @list[@position] ];
    }
}

$ perl 895892.pl
    5 prob=0.00000031,  prob<=:0.00000031, prob>:0.99999969
...
   77 prob=0.03858750,  prob<=:0.97223844, prob>:0.02776156
   81 prob=0.02250937,  prob<=:0.99474781, prob>:0.00525219
   85 prob=0.00525219,  prob<=:1.00000000, prob>:0.00000000