opendir DIR, "$dir";
my @arr = grep -f, grep /\.jpg$/i, map "$dir/$_", readdir DIR;

##</code><code>##

my @arr = glob("*.jpg");