for ( @arr ) {
  if ( -d $_ ) {
    print "nice try - I cannot unlink directories\n";
    next;
  }
  unlink $_;
}