Select Code to Download

    my @good = grep(s/../../, readdir(DIR));
or
    my @better = grep({-f "./$_", readdir(DIR));

    my $ar = \@somearray;
    my @array = @somearray;
...
        );
        wantarray? @interesting: \@interesting;
    }