It's essentially the same with For-If just the fall trough is inverse.

See provided code examples.

update

i.e. you need to terminate with explicit next statements to avoid fall through.

  for ($var){
    if (/abc/) { print "abc"}        # falls through
    if (/def/) { print "def" ;next}
    if (/xyz/) { print "xyz" ;next}
    print "default";
  }
[download]