You can use loop control functions within blocks (be they bare or named) e.g

{
    print "enter option here: ";
    chomp(my $answer = <STDIN>);
    redo if $answer ne "quit";
}
[download]

So the your example code is behaving as expected.
HTH

broquaint