@failid=<*.wrl>;
#print $failid[0];
for(@failid){
  system("cp $_ $_.txt");
}