INPUT: {
    print("Type R to re-enter the values or Type E to exit:\n");
    chomp( my $value = <STDIN> );

    if ( $value eq 'E' ) {
        exit;
    }

    if ( $value ne 'R' ) {
        print("Invalid entry, try again:\n");
    }

    redo INPUT;
}