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

##</code><code>##

perl -e'for(0..$#a){print "$_\n"}'