my %drives;
foreach my $drive ('A'..'Z')
{
   my $all = `vol $drive:  2>&1`;
   next if ($all =~ m/system cannot find the path/);
   $drives{$drive} = ($all =~ /^\s*(.*)/)[0]; #first line
}

foreach my $drive (sort keys %drives)
{
    print "$drive: $drives{$drive}\n";
}
__END__
#prints...........
A: The device is not ready.
C: Volume in drive C is Main-Max
D: The device is not ready.
E: The device is not ready.
F: The device is not ready.
G: Volume in drive G is CIS27
H: Volume in drive H is Sata-1a
I: Volume in drive I is SATA-1B