use strict;
use warnings;

my $chart;
my $variable;

$chart->add_series(
    categories => '=Sheet1!$B$1:$E$1',
    values     => "=Sheet1!\$B\$$variable:\$E\$$variable"
    );