Did you try anything? You are looping over the links and printing them! They are stored as the keys of a hash. This has been done to remove duplicates. If you want and arrary you could just do @links = keys %seen;

But as you are *already* looping over them did it cross your mind to get them as well? Here I am assigning to $link instead of using the sefault assignment to $_ for clarity of code.....

for my $link (sort keys %seen) { 
    print "Getting $link.....";
    my $html = get($link);
    if ( $html =~ m/whatever/ ) {
        print "Wohoo!\n";
    }
    else {
        print "Bugger\n";
    } 
}
[download]