#!/usr/local/bin/perl 
 
my $dir_split = '/opt/stats/data/split'; 
 
for $dir ($dir_split, map { $dir_split . "/vn$_" } 1..6) { 
  opendir DIR, $dir or die $!; 
  my @files = grep -f "$dir/$_", readdir DIR;  
  # the chomp was unnecessary
  closedir DIR; 
  chdir($dir); 
  unlink @files or die $!; 
}