@values=('URL1','URL2','URL3');
%labels=('URL1'=>'company1','URL2'=>'company2','URL3'=>'company3');
print $query->popup_menu(-name=>'Company_Name',
  -values=>\@values,-labels=>\%labels,-default=>'URL2');