Select Code to Download

my @numbers = qw(76.8 77.0 77.2 77.4 77.6 77.8  78.0  
                78.2 78.4 78.6  78.8 79.0 79.2 79.4 
...
@ordered_small = grep { exists $s{$_} } @numbers;

print "@ordered_small\n";