opendir(DIR,$dir) or die $!;
my @files = map{$dir.'/'.$_}grep{$_ =~ /\.$extension$/}readdir(DIR);
closedir DIR;

##</code><code>##

my @files = glob($dir.'/*.'.$extension);