Program Repair Shop

`scalar`

      foreach $md5sum (keys %file_name_by_md5sum)
      {
        my @files = @{$file_name_by_md5sum{$md5sum}};
        if (scalar (@files) > 1) {
          # do NOT push single file lists, there's nothing to match!
          push @md5_LoL , \@files;
          print STDERR "jsjvv: md5sum found " .
            scalar  (@files) . " matches\n"
          if ($verbose1);
        }
      }

It could (and should) be:

      foreach $md5sum (keys %file_name_by_md5sum)
      {
        my @files = @{$file_name_by_md5sum{$md5sum}};
        if (@files > 1) {
          # do NOT push single file lists, there's nothing to match!
          push @md5_LoL , \@files;
          verbose "jsjvv: md5sum found " . @files . " matches\n";
        }
      }