my %hash;
my $flag = ".flag";

foreach my $file(@files) {
    if ($file !~ /\Q$flag$/) {           
        print "$file\n";          
        $hash{$file} = $file . $flag;
    }
}