my $zipped_raw = Compress::Zlib::memGzip($raw_genome);
my $raw_genome = Compress::Zlib::memGunzip($zipped_raw);

##</code><code>##

$fu = "bla bla bla bla" ;
$ba = Compress::Zlib::memGzip( $fu ) ;
open FFF, ">ba.txt.gz" or die "$!"  ;
print FFF $ba;
close (FFF) ;