sub perl_mouse {
    my %HoH = %{+shift}; # I know @_ to get the parameter but not this one
}

$saw{lc,} # what is lc,?