$i = 0;
foreach (@files) {
  %label_hash{$_} = $display_names[$i++];
}
#Have to have a hash in a -labels field,

print popup_menu(-name => 'choice", -values => \@files, -labels => %label_hash)