sub GetSSNameFromFile( $\$\$ )
{
   my $s_InputFile = $_[ 0 ];
   my $rs_OutputFile = $_[ 1 ];
   my $rs_RecurseLabel = $_[ 2 ];
   my $s_SSDataDir = "$ENV{ SSDIR }\\data";

   ++$$rs_RecurseLabel;
...