Select Code to Download

my @prob = (0.1, 0.25, 0.03, 0.4, 0.22);

my @options = qw(monday tuesday wednesday thursday friday);

#!/usr/bin/perl
use strict;
...
}