Select Code to Download

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

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