Select Code to Download

#!/usr/local/bin/perl

...
    print "</FONT>";
print "</TABLE>\n";
print "</HTML>\n";

    if ( $distance > 10){
        next;
        }

    if (grep {$_ eq $element} @neighbor) {
        @array3=($allfiles[$n],$distance2);        
        push (@test1, @array3);    
        push (@highval, $distance2);
        }