Select Code to Download

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}) {
...
  else {
    $extensions{$key} = $num;
  }

  if (defined $extensions{$key}) {
    $extensions{$key} += 1;
...
  else {
    $extensions{$key} = 1;
  }

  ++$extensions{$key};