sub getFoo {

    my $a;
    my $b;
    my $strFoo;

    ($a,$b) = @_;
 
    $strFoo .= $a;