my @drives = (
  Win32::GetNextAvailDrive(),
  Win32::GetNextAvailDrive(),
  Win32::GetNextAvailDrive(),
  Win32::GetNextAvailDrive(),
);
do_stuff_with(@drives);

##</code><code>##

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