If $zip is an Archive::Zip object, you can get at the unzipped content with the ->contents method. You then pass whatever you get from that method to UnCompress::Bzip2.