Select Code to Download

#!/usr/bin/perl
use warnings;
...
print join (' ', 'The odd numbers are:',
                 grep 1 - $_ % 2, @a),
      "\n";