use Getopt::Long;
use vars qw/@xvals @yvals/;
my $result = GetOptions (
    'xvariables=s' => \@xvals,
    'yvariables=s' => \@yvals,
);
@xvals = split /,/, join ',', @xvals;
@yvals = split /,/, join ',', @yvals;