#!/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();