my $str = q{};
{
    my $i = 0;
    $str .= join(q{ }, $nums[$i] // last, $dat[$i++] // last) . "\n" while 1;
}
print $str;