You can use File::Find to find the file and unlink to delete it.

There are several examples in both sets of documentation that will get you there.

UPDATE
Other Notes: Use strictures and warnings.
Indent your code (at least for us)
Don't use chop. Use chomp
Use a real array and push

# ex
my @drives; # you want an array
foreach (<FSUTIL>) {
  chomp;    # don't use chop 
  push(@drives, $_);
}
close(FSUTIL);
[download]