chomp @cdr_list;
foreach my $tarzip (@cdr_list) {
  my $tar = Archive::Tar->new($tarzip);
  foreach my $file ($tar->list_files) {
    print $tar->get_content($file)
  }
}