my $file = join(":", %data); print FH $file;