$line =~ m/\s*(\S+)\s*(\S+)\s*(\S+)\s*(\S+)\s*/;

##</code><code>##

my ($device, $bps, $sps, $msps ) = split ' ', $line;

##</code><code>##

sub PlotGraph
{ 
  my $worksheet = shift;
  my $col = shift;
  my $row = shift;
  my $chartTitle = shift;
  my $xAxisTitle = shift;
  my $yAxisTitle = shift;

# reads better to my eye and makes it easier to see the function(args) 
# (also a bit faster FWIW)

sub PlotGraph
{ 
  my ( $worksheet, $col, $row, $chartTitle, $xAxisTitle, $yAxisTitle ) = @_;