@failid=<*.txt>;
print join(", ", @failid), "\n\n";

foreach $failinimi (@failid){
  print $failinimi."\n";
}