my($ip,$name,$proto,$email) =~ /^(\S*) (\S*) (\S*) (\S*)$/;

##</code><code>##

    $userdata{$name}{$ip}{$proto}{$email}++;

##</code><code>##

    @order = qw(ip name email proto)

##</code><code>##

    $userdata{$order[0]}{$order[1]}{$order[2]}{$[order[3]}++;
    # which I want to result in ...
    $userdata{$ip}{$name}{$email}{$proto}++;