my @points = () ;
my @axis   = ();
my $counter = 0 ;
while ($counter <= 999) 
  my $rndn = $A + (int rand($B - $A + 1));
  push @points,$rndn ;
  $counter++ ;
  push @axis,$counter;
}
.
.
.

$graph->plot([\@axis,\@points]);