sub lookup {
    my $h = \%h;
    $h = $h->{$_} for @_;
    return $h->{DESCRIPTION};
}

say lookup 'Assault';
say lookup qw/Assault Deadly with/;