my %actions = (
               Add    => \&Add,
               Delete => \&Delete,
               Show   => \&Show,
               ...
              );

if( length( $action ) ) {
  $actions{ $action }->( );
} else {
  Show();
}

exit 0;