Select Code to Download

@selected = grep EXPR, @input;
@selected = map { if (EXPR) { $_ } } @input;

use Data::Dumper;

...

 map { 0 ? $_ : () } @x
$VAR1 = [];