##
my ($xarray,$values,$xlabel,$ylabel,$title) = shift(@_);
####
my $xarray = shift;
my $xarray = shift;
my $values = shift;
my $xlabel = shift;
my $ylabel = shift;
my $title = shift;
####
my ($xarray,$values,$xlabel,$ylabel,$title) = @_;
####
push @data,$_ for @{$xarray};
push @data,$_ for @{$values};
####
use strict;
use warnings;