sub SomeRoutine 
{
  $P = shift;
  $id = $P->{'ID'};
  @e = @{$P->{'E'}};
}