my ( $shortfn, $dir.$i."\\", $filename ) = @_;