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

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

__DATA__
a
b
c
d
e