#!/usr/local/bin/perl 

use File::Find qw(find); 
my $dir_pre = '/opt/stats/data/split/vn; 
my @dirs = ();
push @dirs, $dir_pre.$_ for (1..6);
find( sub{
  next unless -f;
  print "unlinking \"$_\"\n";
  unlink $_ || warn $!;
}, @dirs);