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