my $files = ($directory, "\", $file);