[- $r = shift ; $parm = join ('-.-', map { "$_-$fdat{$_}" } keys %fdat) ; $parm = ".-$parm-" if ($parm) ; -]