Then you use a dispatch (or lookup) table:

my %choice = (
   1 => 'stuff',
   2 => 'more stuff',
   ...
);

print $choice{$input}, "\n";

# hey, let's make functions now!
my %choice = (
   1 => \&stuff,
   2 => \&more_stuff,
   ...
);

&{$choice{$input}};
[download]

See Re: How to write long programms? for more.

jeffa

'Welcome to the next level of laziness!'