if ($location eq ""){
    &main
}elsif ($location eq lc("misc")){
    &misc
}elsif ($location eq lc("links")){
    &links
}else{
    default('Where are you trying to go?');
}
##</code><code>##

SWITCH: for ($location) {
  /^$/        && do {&main()           ;last SWITCH};
  /^misc$/i   && do {&misc()           ;last SWITCH};
  /^links$/i  && do {&links()          ;last SWITCH};
  default('Where are you trying to go'); # catch anything else
}