USERIDXFILE: foreach $file (@userfiles){ 
if ($file =~ /\.dat/) { 
...
...