my ($foo, $bar, @baz) = undef


##</code><code>##

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