my %dispatch_table = ( AB => \&AB, CD => \&CD, ... etc ... ); while (my $inp = <>) { $inp =~ s/^\s*(\w+)\s*$/$1/; if (exists $dispatch_table{$inp}) { &{$dispatch_table{$inp}}(); } else { print "Command unknown: '$inp'\n"; } }