Select Code to Download

if($number%2==0)
{
   $number = $_;
}
print "$number";

use 5.010;
use List::MoreUtils qw(part);
...

say "Odd numbers: ";
say $_ for @$odds;