Select Code to Download

my @old_array=(0, 1, 2, 47, 3);
my @new_array=grep {$_==1 .. $_==3} @old_array;
print "@new_array\n";