my @arr = 1 .. 20; my @excludes = (1,3,5,7,9,11,13,15,17,19); @arr[@excludes] = (); @arr = grep $_, @arr; print join(" : ", @arr)."\n";