sub f{
#234567890#234567890#234567890#234567890
$"=',';@a=a..h;@b=1..8;glob"{@a}{@b}"
}

my@c=f();
$"="\n";
print "@c\n";