sub find_broken_links {

    my ($location,
        $broken_links,
        ) = @_;

    return unless defined($location) and defined($broken_links);

    ... do stuff ...

    push @$broken_links, 'stuff';

    return;

    }