sub files_identical($$) {
   my ($file1, $file2) = @_;...

sub inspection_current($) {
   my $file    = shift; ...