foreach ( @sorted ) {
    my $tar = Archive::Tar->new($_);
    ( my $dest = "./EXTRACTED/$_" ) =~ s/\.t(?:ar(?:.gz|gz)//;
    mkdir $dest unless ( -d $dest );
    chdir $dest or die "mkdir/chdir failed on $dest: $!";

    $tar->extract();  # no params: extract full content to cwd

    chdir "../..";  # return to original cwd
}