LOOP: {
    chomp ( my $choice = <STDIN> );
    $choice == 1 && do { &hash1; last LOOP; };
    $choice == 2 && do { &hash2; last LOOP; };
    $choice == 3 && do { &hash3; last LOOP; };
    print "ERROR: Please enter 1, 2, or 3.\n";
    redo;
}