return a list which contains each file's path

each_file.pl

use strict;
use Cwd;
use File::Spec;
use File::Basename;

sub each_file {
    my $givenFolder = shift @_;

    our @pList; # path list to be returned
    &innerEachFile($givenFolder);
    return @pList;

    sub innerEachFile {
        my $path = shift @_;

        if(-d $path) {
            chdir $path or die "can't chdir $path: $!\n";
            foreach (<*>) {
                &innerEachFile(File::Spec->catfile(getcwd, $_));
            }
            chdir (dirname $path) or die "can't chdir ".(dirname $path).": $!\n";
        }
        else {
            push @pList, $path; # push file path into local @pList
        }
    }
}