I cleaned it up and tried a hashref instead of an arrayref; also, I shortened the sub name a wee bit. Try this:

#!/usr/bin/perl -w

use HTML::TreeBuilder;
use Storable qw(nstore retrieve);
use Data::Dumper::HTML qw(dumper_html);

sub google_alert {
    use strict 'refs';
    my ( $html, $results ) = @_;
    my $tree = 'HTML::TreeBuilder'->new_from_content($html);
    my (@paragraphs) = $tree->look_down( '_tag', 'p' );
    my $type;
    foreach my $i ( 0 .. $#paragraphs ) {
        my $p     = $paragraphs[$i];
        my $ptext = $p->as_text;
        if ( $ptext =~ /blogs alert/i ) {
            $type = 'blog';
            next;
        }
        elsif ( $ptext =~ /news alert/i ) {
            $type = 'news';
            next;
        }
        elsif ( $ptext =~ /create another alert/i ) {
            $type = '';
            next;
        }
        my ( $link, $title, $source, $sourceurl, $excerpt );
        if ( $type eq 'news' ) {
            return;
        }
        elsif ( $type eq 'blog' ) {
            my (%anchors) = $p->look_down( '_tag', 'a' );
            if (%anchors) {
                nstore( \%anchors, 'anchors.sto' );
                $link = $anchors{'href'};
                $link =~ s/\s+$//;
                ( $title = $anchors{'href'}->as_text ) =~ s/<.+?>//g;
                $title =~ s/^\s+|\s+$//g;
                $sourceurl = $anchors{'href'};
                ( my $temp = $anchors{'href'}->as_text ) =~ s/<.+?>//g
+;
                ($source) = split( / \- /, $temp, 2 );
                $source =~ s/^\s+|\s+$//g;
                my $snippet = $p->as_HTML;
                $snippet =~ s[<br ?/?>][<br>]gi;
                my(@segments) = split( /<br>/i, $snippet, 0 );

                if ( not $segments[1] =~ /color="\#666666"/i ) {
                    ( $excerpt = $segments[1] ) =~ s/<.+?>//g;
                }
                else {
                    ( $excerpt = $segments[2] ) =~ s/<.+?>//g;
                }
                push @{ $$results{'blog'}; },
                  {
                    'link',    $link,   'title',     $title,
                    'source',  $source, 'sourceurl', $sourceurl,
                    'excerpt', $excerpt
                  };
            }
        }
    }
    return $results;
}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.