$range[ chop ] = 1 while $_; # $_ is copy :) grep $_, @range[65..90,97..122];