This is a little shorter, possibly faster, definitely nicer on memory on big directories, plus it spits out what is going on (would have been shorter without the print)

#!/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);
[download]

my @a=qw(random brilliant braindead); print $a[rand(@a)];