use PerlIO::gzip;
use Archive::tar;

# ...

open( my $tarfh, ">:gzip", "my_tarball.tar.gz" );

# ...

$tar->write( $tarfh );