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

##</code><code>##

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