sub as_hash {
  my $aref = shift;
  return { map @$_, @$aref };
}