Select Code to Download

#!/usr/bin/perl -w
use strict;
...
      -labels => {map { $fish{$_}, $_ } sort keys %fish}
   ),
   end_form();

#!/usr/bin/perl -w
use strict;
...
      -labels => \%fish
   ),
   end_form();