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