open my $FH6, '>', '/tmp/tst.txt' or
  die "unable to open output file: $!";
foreach my $key ( sort keys %data ) {
  my @keys = split(/:/,$key);
  print $FH6 join(',',$data{$key},@keys) . "\n";
}
close ( $FH6 );