#!/usr/bin/perl -w
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 header(), start_form(),
   popup_menu(
      -name   => 'fish',
      -values => [map { $fish{$_} } sort keys %fish],
      -labels => {map { $fish{$_}, $_ } sort keys %fish}
   ),
   end_form();

##</code><code>##

#!/usr/bin/perl -w
use strict;
use warnings;
use CGI::Pretty qw(:standard);

my %fish = (
  'fish1.jpg'  => 'Fresh water fish',
  'fish2.jpg'  => 'Salt water fish',
  'seuss1.jpg' => 'One fish',
  'seuss2.jpg' => 'Two fish',
  'adams.jpg'  => 'Thanks for all the fish'
);
print header(), start_form(),
   popup_menu(
      -name   => 'fish',
      -values => [sort keys %fish],
      -labels => \%fish
   ),
   end_form();