chomp(my $file =uc(<STDIN>));
my $path = "./Pandoras Box/$file.txt";
open FILE, '>>', $path or die "unable to append to $path: $!";
...