#!/user/bin/perl -w

use strict;

my %linkTitle;
my %linkCategory;
my %linkBlurb;
my %linkUrl;

(%linkTitle,%linkCategory,%linkBlurb,%linkUrl) = AssignValues();
 # apparenty this (or the other similarly commented statement or
 #both) is illegal and/or doesn't do what I think it should.

#  Print the assigned values:
my $counter;
for ($counter = 0; $counter < 3; $counter++)
   {
     print "linkTitle{$counter} is set to $linkTitle{$counter}";  
     print "linkCategory{$counter} is set to $linkCategory{$counter}";  
     print "linkBlurb{$counter} is set to $linkBlurb{$counter}";  
     print "linkUrl{$counter} is set to $linkUrl{$counter}";  
   }

sub AssignValues()
{

my %assignTitle;
my %assignCategory;
my %assignBlurb;
my %assignUrl;

$assignTitle{0} =    "Yahoo!";
$assignCategory{0} = "Search Engines";
$assignBlurb{0} =    "Perhaps you've heard of it.";
$assignUrl{0} =      "http://www.yahoo.com/";

$assignTitle{1} =    "Slashdot";
$assignCategory{1} = "Tech News";
$assignBlurb{1} =    "News for nerds. Stuff that matters.";
$assignUrl{1} =      "http://www.slashdot.org/";