while ( defined( my $path = shift @all_paths ) ) {
    # ...