$dirsofar .= "/".$dc;

##</code><code>##

$dirsofar = ( $dirsofar =~ /^./ ) ? $dirsofar . "/".$dc : $dirsofar .= $dc;

##</code><code>##

@ARGV[0] = "/home/user/files/work/file";

##</code><code>##

/home/useruser/filesfilesfiles/workworkworkwork