# Near the top of your program
use File::Glob qw(bsd_glob); # sane whitespace handling

my @files = glob('../INPUT/*');