#!/usr/bin/perl my $foo; print "LUT1024F\n"; for ($foo=0; $foo<1024; $foo++) { print rand()*3.30, "\n"; } 0;