{
   iterate {
      my (
         $env_name,
         $platform_name,
         $host_name,
         $target_name,
         $total_capacity,
         $free_capacity,
      ) = @_;
   
      local $, = "\t";
      local $\ = "\n";

      print $env_name,
            $platform_name,
            $host_name,
            $target_name,
            $total_capacity,
            $free_capacity;
   } $stuff;
}