use strict;
my @dat=[qw(foo bar)];
for (@dat){
 push (my @u, [$_->[0], $_->[1]])
}