print "$nums[$_] $dat[$_]\n" for 0 .. $#nums;