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