foreach (@sorted){
  my $tar = Archive::Tar->new($_);
  my @files = $tar->get_files;
  foreach my $file (@files){
    $tar->extract_file($file, "./EXTRACTED/$_");
  }
}