for (0..$#xdata) { push @frmt, [ $xdata[$_], \@{$ydata} ] }