my %mode_hash = (order => \&mode_order, confirm =>\&mode_confirm);

my $mode = param('mode') || "order"; #default mode

&{$mode_hash{$mode}}; # executes the mode subroutine