my %platform;
$platform{$site}{"thingy"}= 5;
foreach my $x ( keys %{$platform{$site}}) {
  ...