my @lines = &read_all_lines_into_an_array();

# Here you set the values for the variables you want
# interpolated later...

eval qq{print "$_\n"} for @lines;