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

##</code><code>##

my @tmp=();
push @tmp, $_->[0] for @$res;

##</code><code>##

popupmenu(-values=>[ map { $_->[0] } @$res ]);