my $tar = Archive::Tar->new(); foreach $updatedFile (@updatedFiles){ print "Adding to tar ($updatedFile)\n"; $tar->add_files("$updatedFile"); } foreach $newFile (@newFiles){ print "Adding to tar ($newFile)\n"; $tar->add_files("$newFile"); } $tar->write("$tarFile");