my @box;
for (...) {
  my ($NetName, $MinX, $MinY, $MaxX, $MaxY) = ...;
  push @box, [$NetName,
              $MinX, $MinY, $MaxX, $MaxY,
              ($MaxX - $MinX) * ($MaxY - $MinY)];
}