Select Code to Download

foreach ( @sorted ) {
    my $tar = Archive::Tar->new($_);
...

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

    for my $file ( $tar->get_files ) {
        my $dataref = $file->get_content_by_ref;
...
        # You can use $file->name to see the tarred path and
        # make subdirs as you see fit.
    }