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

##</code><code>##

    my $ar = \@somearray;
    my @array = @somearray;
    # from a function
    my $ar = &fsome();
    my @array = &fsome();
    sub fsome {
        my @interesting - qw(
            one two buckle my shoe
        );
        wantarray? @interesting: \@interesting;
    }