my @routines = (
   \&routine0,
   \&routine1,
);

$routines[$input]->();