...
            my $bdate = fetchBD($line, $firstname, $lastname, $email);
...
sub fetchBD {
    my ($line, $firstname, $lastname, $email) = @_;

    my $fns = index($line,'FirstName');
    ...