sub SomeRoutine {
    my $href = shift;
    my $id   = $href->{'ID'};
    my @e    = @{$href->{'E'}};
    #........
}