for $x (f .. j){
chomp(${$x} = <DATA>);
}

print "$f $g $h $i $j\n";

__DATA__
a
b
c
d
e


##</code><code>##

do{for $x (i, g, k){
chomp(${$x} = <DATA>);
} print "$i $g $k\n";} until eof;

__DATA__
a
b
c
d
e
f
g
h


##</code><code>##

a b c
d e f
g h