Select Code to Download

my @test_numbers = qw(1 2 5 8 10 12 14 56);

...
        }
    }
}

foreach my $test_number (@test_numbers) {
    if( $test_number =~ /^\d{1,2}$/ and $test_number <= 10){
...
5
8
10