This is what I have been doing for years after reading it in Orielly "Perl Programming" book.
CASE: {
@letters = (a,b,c), $var='abc', last CASE if ($inum == 2);
@letters = (d,e,f), $var='def', last CASE if ($inum == 3);
@letters = (x,y,z);
}
return(@letters);
Note the following...