if (uc($quickloop) eq 'LOOP') {
	LOOP($quickloop, $quicklabel,\$isjmptaken);
}

...

sub LOOP {
	my ($quickloop,$quicklabel,$isjmptaken_ref) = @_;
	$$isjmptaken_ref = 1;
}