my @pseudohash = (
  { 'key1' => 1, 'key2' => 2, 'key3' => 3 },
  value1,
  value2,
  value3
);
print $pseudohash{'key1'}; # verwendung wie Hash; wird intern umgesetzt auf:
print $pseudohash{ $pseudohash[0]->{'key1'} };