# Line 20-24
my $year   = $cgi->param('year')   ? encode_entities($cgi->param('year'),   '<>"') : '';
my $media  = $cgi->param('media')  ? encode_entities($cgi->param('media'),  '<>"') : '';
my $genre  = $cgi->param('genre')  ? encode_entities($cgi->param('genre'),  '<>"') : '';
my $source = $cgi->param('source') ? encode_entities($cgi->param('source'), '<>"') : '';
my $title  = $cgi->param('title')  ? encode_entities($cgi->param('title'),  '<>"') : '';

##</code><code>##

# How I'da dunnit:
my %param = map {
    $cgi->param($_)
      ? ($_ => encode_entities($cgi->param($_), ''))
      : ()
    } qw(year media genre source title);


##</code><code>##

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

##</code><code>##

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