use strict;
my @sites = qw(http://www.corion.net);
my $user_name = "Corion";
for my $user_site (@sites) {
  print "Summary for site $user_site\n";
  my $link_number; # = 0; # left the initialization out intentionally
  for my $link (get_site_links($user_site)) {
    print "$link_number: Found link $user_site$link\n";
    $link_number++;
  };
};

sub get_site_links {
  return qw(index.html test.html error.html);
};