(C) 2003, Tim Maher       1-4       www.TeachMePerl.com
What Does Select Look Like?
Shell Version
.
select programmer in $programmers
do
    award_Geek_Cruise "$programmer"
    (( budget = $budget - 3000 )) 
    [[ $budget < 3000 ]]  &&  break
     # ($3,000 cost excludes Bar-tab!)
done

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

Enter choice: 4