C:\test>perl
sub iter{ warn join '|', caller; return int rand 3 }
for(1 .. 10) {
    if( iter() == 0 ) {
         print 'first';
    }
    elsif( iter() == 1 ) {
        print 'second';
    }
    else {
       print 'third';
    }
}
^Z
main|-|3 at - line 1.
main|-|3 at - line 1.
main|-|3 at - line 1.
main|-|3 at - line 1.
main|-|3 at - line 1.
main|-|3 at - line 1.
main|-|3 at - line 1.
main|-|3 at - line 1.
main|-|3 at - line 1.
main|-|3 at - line 1.
main|-|3 at - line 1.
main|-|3 at - line 1.
main|-|3 at - line 1.
main|-|3 at - line 1.
main|-|3 at - line 1.
main|-|3 at - line 1.
main|-|3 at - line 1.
main|-|3 at - line 1.
thirdthirdthirdthirdfirstthirdsecondthirdfirstthird