foreach $tar_star_list (@tar_star_list) { $complete_zip_spec = $output_path . "/" . $tar_star_list . ".tgz"; print "\$tar_star_list $tar_star_list \n"; system ("tar -cvf - $tar_star_list.* | gzip > $complete_zip_spec &"); } #### $tar_star_list civil ^[]0;saturnn2^G $tar_star_list eco ^[]0;saturnn2^G $tar_star_list slc ^[]0;saturnn2^G