Select Code to Download

use strict;
use warnings;
...

print join ' ', grep {$_ % 2} @list;
print "\n@list\n\n";

1 2 3 4 5 6 7 8 9 10 
2 3 4 5 6 7 8 9 10 11
...

1 3 5 7 9
1 2 3 4 5 6 7 8 9 10