perl -E '$" = ","; my @pos = 'a'..'h'; say for <{@pos}{@{[ 1..@pos ]}}>'