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