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