sub delfiles {
  my $count = unlink @files;
  print "number of files deleted: $count\n";
}

##</code><code>##

sub delfiles {
  for my $path (@files) {
    unlink $file;
  }
}