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

foreach my $test_number (@test_numbers) {
	if( $test_number =~ /^\d{2}$/){
	    if($test_number <= 10){
	           print "$test_number\n";
		}
	}
}