Help for this page
my %links = ( "1" => ['/channels.shtml', 'channels'], "2" => ['/mp3s/', 'mp3s'], "3" => ['/fortune.shtml', 'fortune'] );
foreach(sort keys %links) { if ($uri eq $links{$_}[0]) { ... } print " | "; }