for my $file (sort grep -f, readdir $dh) #### for my $file (sort @files) #### use constant TWO => 2; #### use constant NUM_EYES => 2; #### my $num = 1; if (exists $extensions{$key}) { $extensions{$key} += $num; } else { $extensions{$key} = $num; } #### if (defined $extensions{$key}) { $extensions{$key} += 1; } else { $extensions{$key} = 1; } #### ++$extensions{$key};