while (1) {
    last if eof $fh1;
    printf $format => get_data(scalar <$fh1>), get_data(scalar <$fh2>);
}