Help for this page
for (0..$#xdata) { push @frmt, [ $xdata[$_], \@{$ydata} ] }
perl -e'for(0..$#a){print "$_\n"}'