foreach my $key (keys %data) {
  print "$key;";
  print join(';', keys %{$data{$key}});
  print "\n";
}