for my $ref ( grep $_->{URL}, @records ) {
    print qq{<B>Webpage:</B> <A HREF="$ref->{URL}">$ref->{URL}</A><br>};
}