for (1..4)
{
  my $drive = Win32::GetNextAvailDrive();
  do_stuff_with($drive);
}