while (1) {
    print <<EOF;
Please select one of the following locations:
1.) Option 1....
2.) Option 2....
3.) Option 3....

EOF
    print "Selection: ";
    chomp(my $answer = <>);
    if ($menu_selection{$answer}) {
       print $menu_selection{$answer}, "\n";
       last;
    }
}