foreach my $name (keys %hash){
  print "$name\n";
  foreach my $sit (@{$hash{$name}}){
    print "\t$sit\n";
  }
}