use strict; # always.
my $drive;
my $count = -1;
open( LIST, "list -l|" ) or die $!;
while(<LIST>) 
{
    ($drive) = unpack '@0 A3',$_;
    ++$count if m/Drive/;
    system("list -delete -dr -index ${count}");
}