use strict;
use warnings;

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 option_list(\%fish);

sub option_list {
    my $options = shift;
  return 
    "<select>\n" . 
    (join '', map{ qq!<option value="$options->{$_}">$_</option>\n! } keys %$options ) .
    "</select>\n";
}