how-to read dir into array of files in Perl

use strict ;


sub main {
my @arrayTemplateFiles = () ;
my $arrayTemplateFiles = readDirGetArrayOfFiles ();
@arrayTemplateFiles = @$arrayTemplateFiles ; #dereference


# print all the filenames in our array
foreach my $templateFile (@arrayTemplateFiles ) {
print "2 \$templateFile is $templateFile\n";
} #foreach

} #eof main

sub readDirGetArrayOfFiles {

# create a list of all *.pl files in
# the current directory
opendir(DIR, ".");
my @files = grep(/\.pl$/,readdir(DIR));
closedir(DIR);

# print all the filenames in our array
foreach my $templateFile (@files) {
print "\$templateFile is $templateFile\n";
}

return \@files;

} #eof main


#Action !!!
main();