chomp (my @files = `find somedir -name somename -mtime 22`);
my %del_log = ();
for my $f (@files) {
    unlink $f;
    $del_log{$f} = localtime;
}