@a = map { $a[$_] > 1 ? $a[$_] * 2 : () } 0..$#a;