nested subroutines

[Chris Stinemetz]

Thanks in advance.

I have a subroutine inside another subroutine in a module I am tyring to
put together.

I would like to pass the value assigned to $srt in the while loop as the
parameter for the session_attempts subroutine called withing the
processPegs subroutine.

The error I am getting is:

Use of uninitialized value $_srt in numeric ne (!=) at ...

For example:

main program:

while(<>)
{
   chomp($_);
   next if $_ =~ /PACE/;
   my @tokens = split(";",$_);

   $srt = $tokens[$fieldMap{"SRT"}];
   processPegs($c_s,\%evdo);
}

module:

sub processPegs {
   my($_cs, $_t) = @_;

   $_t->{$_cs}{$pegs[0]} += session_attempts($srt);
}

Chris