sub chart_me {

   my( $row, $name ) = @_;

   my $chart = $workbookout->add_chart( type => 'line', name => $name );

   $chart->set_title( name => $name );

   foreach my $i ( 1 .. 6 ) {
      my $rowi = $row + $i - 1;

      $chart->add_series(
               name        => $header[ $i ],
               catagories  => xl_range_formula( 'Sheet1', 1, 1, 2, $maxcol ),
               values      => xl_range_formula( 'Sheet1', $rowi, $rowi, 2, $maxcol ),
      );
   }
}

##</code><code>##

      $chart->add_series(
               name        => $header[ $i ],
               catagories  => xl_range_formula( 'Sheet1', 0, 0, 1, $maxcol ),
               values      => xl_range_formula( 'Sheet1', $rowi, $rowi, 1, $maxcol ),
      );

##</code><code>##

      $chart->add_series(
               name           => $header[ $i ],
               name_formula   => '=Sheet1!' . xl_rowcol_to_cell( $rowi, 0, 1, 1 ),
               catagories     => xl_range_formula( 'Sheet1', 0, 0, 1, $maxcol ),
               values         => xl_range_formula( 'Sheet1', $rowi, $rowi, 1, $maxcol ),
      );