foreach my $computer (@computerlist) {
  ... # yadda yadda yadda
  foreach my $drive (@drives) {
    ...
  }
  ...
}