Select Code to Download

# Line 20-24
my $year   = $cgi->param('year')   ? encode_entities($cgi->param('year
+'),   '<>"') : '';
...
my $genre  = $cgi->param('genre')  ? encode_entities($cgi->param('genr
+e'),  '<>"') : '';
my $source = $cgi->param('source') ? encode_entities($cgi->param('sour
+ce'), '<>"') : '';
my $title  = $cgi->param('title')  ? encode_entities($cgi->param('titl
+e'),  '<>"') : '';

# How I'da dunnit:
my %param = map {
...
      : ()
    } qw(year media genre source title);

# Line 33-39:
if ( $year || $media || $genre || $source || $title ) {
...
  push @selections, qq($genre)  if $genre;
  push @selections, qq($source) if $source;
  ...

# How I'da dunnit:
if (keys %param) {
  my @selections = values %param;
  ...