Select Code to Download

my @problems = (1,2,3);
for my $problem (@problems) {
   push @problems, $problem if $problem;
}

my @problems = ( 1, 2, 3 );
push @problems, grep $_, @problems;