for my $ref ( @records ) {
    print "<B>", 'Webpage:', ' ', "</B>";
    print "<A HREF\= \"@{$ref}{qw/URL/}\">", @{$ref}{qw/URL/}, "</A>", "<br>";

}