foreach $name (@name) {
        last if ($name =~ $filename);

        unlink($files . "\\" . $filename)
            or warn qq{cannot delete $filename: $!+};
        last;
    }