use strict;
use warnings; 

my @filelist=qw( FRAUD-REPORT01032006.CSV toto tata );
my @curr;

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

sort @curr;
print "@curr";