for $key(keys %scoutings)
{
  $arr = $scoutings{$key};
  print "$key,".join(",",@$arr)."\n";  
}