print "$dir\n";
my $dir = join "\\", @path[0,1,2,3,4,5,6];

##</code><code>##

h:\one\two\three\for\five\six\seven\eight