push @{$platform{$site}}, 1,2;
$platform{$site}[5]= 5;
foreach my $x ( @{$platform{$site}}) {
  ..