chdir(Directory) or die "Directory: $!";
@uploads = glob("*$caseNumber*");

##</code><code>##

my @uploads = map { $_ =~ m!.*/(.*)! } glob("Directory/*$caseNumber*");

##</code><code>##

use File::Glob qw(:glob);