$ perl -Mstrict -Mwarnings -e ' my $sheet = {F35 => 1, G35 => 2, H35 => 3, I35 => 4, J35 => 5, K35 => 6}; my @mycols = "F" .. "K"; my @cells; for (@mycols) { push @cells, $sheet->{$_ . 35}; } print "@cells\n"; ' 1 2 3 4 5 6