find(\&wanted,$dir);

sub wanted{
 my $file = $File::Find::name;
 my $flag = -f $file ? 'f' : 'd';
 my $time = (stat($file))[9];

 push(@files,$file.','.$time.','.$flag);
 }