Perl Ending loops/code blocks based on user input (!die/exit)
===

just have a general question that came up while I was playing around with some stuff I coded.  I was wondering if there is any way to terminate a specific part of the program based on user feedback (I apologize if I am misusing terminology here) other than die(); since that ends the entire program.

here's the code:

    
    if ($choice eq 'y'){
    print "\nHit diagnostics: \n";
	{
	my $hitList=@hitList;
	for (my $i=0; $i<$hitList; $i++){
		print $hitList[$i]."\n";
		#segmented listout of misses with interrupt 
		if(($i%4) eq 0){
			print "CONTINUE or Q to end\n";
			my $next=<>;
			chomp($next);
			if(lc($next) eq 'q'){
				**die "Killing request...\n";**
				}
			}
		}
	}

So basically I just want for the user to be able to end the modulus if loop if they decide at some point that they don't actually want to see the entire list but still be able to continue (there is a miss prompt afterwards as well) with the program.

Is the best way to do this just to use a variable as a 'switch' to determine whether or not the hit list should continue? Just wondering if there is a more acceptable/elegant solution.