Help for this page
my @a = ( 42, 42, 43, 43, 43, 44, 45, 46, 41, -13 ); my @b = ( 43, 45, -13, 43 ); ... } @c = grep { defined } @c; print join ', ', @c; print "\n";