foreach my $file (@filelist) {
   push(@curr, $file) if $file =~ /^FRAUD-REPORT\d+\.CSV$/i;
}