Select Code to Download

use strict;
use warnings;
...
              PlotBy =>xlColumns,
         });
$xls->ActiveChart->Location({ Where => xlLocationAsObject, Name =>'She
+et1'});

my @a = (1, 2, 3);
my @b = (5, 10, 15);
...
              Source =>$xls->Sheets('Sheet1')->Range("$a:$b"), 
              PlotBy =>xlColumns,
         });