mkdir my $directory_name = 'dict' or die $!;
opendir my $dir_handle, $directory_name or die $!;

...

my $outputfile = "$directory_name/output_$key";