$ perl -le " my @f =qw/ abc def gh00 /; for my $f ( @f ){ print qq/\n$f/; for(1..3){ $f++; print $f; } }"

abc
abd
abe
abf

def
deg
deh
dei

gh00
gh01
gh02
gh03