my @versions;
print "$dir\n";

opendir(DIR,$dir) || die "Can't open $dir: $!";
@versions = grep {/\b,.*?\b/ && -f "$dir/$_" } readdir(DIR);
closedir DIR;

print "@versions\n";