...
my $method = $dispatch{ $command };
$self->$method( );
...
[download]

Or you can be more bullet proof.

my $method = $self->can( $dispatch( $command ) );
unless( defined $method ) {
  warn "I don't understand `$command'\n";
  return;
}
$self->$method( );
[download]