sub sortDictionary {

   foreach my $key (sort keys %dictionary) {
      $key =~ /^(.)/;
      my $lline = $key . '/' . $dictionary{$key};
      #print $lline;
      $line = $lline;
      writeFiles($line);
   }
}

sub writeFiles {
   @alphabet=(a..z);

   $letter = substr($line,0,1);
   $namestub = "_words";

   for ($i; $i<26; $i++);
   $filename = @alphabet[$i] . $namestub . ".txt";

   if ($letter eq @alphabet[$i]){
      open FILE, "+>", $filename or die $!;
      print FILE "$line\n";
      print @alphabet[$i];
      close FILE;
   }
   }
   return 0;
}