(C) 2003, Tim Maher       1-5       www.TeachMePerl.com
What Does Select Look Like?
Perl Version
.
select $programmer ( @programmers ) {
    award_Geek_Cruise ($programmer);
    $budget -= 3000;  # excluding Bar-tab 
    $budget < 3000  &&  last;
}

Screen

1) frodo      3) madonna
2) squiggy    4) spongebob

Enter choice: 4