use strict;
use warnings;
use CGI::Pretty qw(:standard);

my %fish = (
   "Fresh water fish"        => "fish1.jpg",
   "Salt water fish"         => "fish2.jpg",
   "One fish"                => "seuss1.jpg",   
   "Two fish"                => "seuss2.jpg",   
   "Thanks for all the fish" => "adams.jpg",
);

print start_form,
   popup_menu(
      -name   => 'fish',
      -values => [map {$fish{$_}} sort keys %fish],
      -labels => \%fish,
   ),
   end_form,
;