my @y=(1..11);
for ($ia=0;$ia<$text;$ia++)
{
@tempa=splice(@rfevma2437,0,11);
$datasets[$ia]=Chart::Gnuplot::DataSet->new(
 xdata=>\@y,
 ydata=>\@tempa,
  style=>"lines",
  title => $sln[$ia],
 );
 print "$datasets[$ia]\n";
push @temp1,$datasets[$ia];
}
$rfevmchart->plot2d(@temp1);