for my $d (@dat){ 
    push (my @u, [$d->[0], $d->[1]]);
    ...