my @tmp=map { $_->[0] } @$res;