Select Code to Download

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

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

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