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};

print $link;