my $title = 'Political Animal';  # Or in your case, $q->param('title')

my %links_to = (
    "Political Animal"  => "pa",
    "Newslink"          => "nl",
    "New Slang"         => "ns",
    "Rant With Ryan"    => "rwr",
    "Planet Venus"      => "pv",
    "All Day Breakfast" => "adb",
);

my $link = $links_to{$title};


##</code><code>##

  my %DAYS_OF_WEEK = ("0" => "Sunday",
                     "1" => "Monday",
                     "2" => "Tuesday",
                     "3" => "Wednesday",
                     "4" => "Thursday",
                     "5" => "Friday",
                     "6" => "Saturday",
        );
  my $dayname = $DAYS_OF_WEEK($day);