my @directory = join "\\", @path[0,5,6];

my $srcfile;
my $dir = @directory;