sub getFoo { my($a, $b) = @_; my $strFoo = $a; ... #### sub getFoo { my $a; my $b; my $strFoo; ($a,$b) = @_; $strFoo .= $a;