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

    while (my $line = <QR>){
    ...

##</code><code>##

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

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