@arr = (
   {"Goethe"=>"1749","Schiller"=>"1759","Mann"=>"1875"},
   ["Faust","Wallenstein","Buddenbrooks"],
   "Ich bin ein Skalar",
   );
foreach $i(@arr)
  {
  if(ref($i) eq 'HASH')
    {
    foreach (keys(%$i))
      { print "[H]: $_ wurde ${$i}{$_} geboren.\n"; }
    }
  elsif(ref($i) eq 'ARRAY')
    {
    foreach (@$i)
      { print "[A]: $_ ist ein wichtiges Werk der Literatur.\n"; }
    }
  else
    { print "[S]: $i\n"; }  
  }