...
#del files if older than 10 days:::
my @files = </myfiles/*.txt>;
if (@files) {

  foreach my $delfiles (grep {-f && (10 < -M)} @files) {	  
    print "\n Deleting::: $delfiles\n";
    unlink $delfiles;
   }

}
...