Select Code to Download

    @small = qw /78.6 78.8 79.0 80.2 79.8/;

    @small = do {my $i; grep {$_ eq $small [0] .. ++ $i == @small} @nu
+mbers};