Select Code to Download

use 5.010;
use strict;
...
        with    Assault with a deadly weapon
        without    Assault without a deadly weapon
    Aggravated    Aggravated Assault

VAR1 = {
    'Assault' => {
...
    }
};

sub lookup {
    my $h = \%h;
...

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