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

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