for (@list) { $list[$count]; #yadda yadda $count++; } ##

##

for my $count (0..$#list) {
   $list[$count]; #yadda yadda
}

##

##

use strict;
use Data::Dumper;
use HTML::TokeParser;

my $data   = do {local $/;};
my $parser = HTML::TokeParser->new(\$data);

my %hash;
while (my $tag = $parser->get_tag('a')) {
   $hash{$tag->[1]->{href}}++;
}

print Dumper \%hash;


__DATA__
   Costly false alarms
 
A new policy aimed at tackling the huge waste of police time attending false security alarm calls is to be introduced this week more

   Mindless yobs terrorise OAP's