#! perl -slw use strict; sub rndStr{local $"=''; "@_[map{rand$#_} 1 .. shift]"; } open(FILEHANDLE, ">data.txt"); my $i=0; while ($i < 500){ my $num = rndStr 2, 0..9; print FILEHANDLE $num .".0f, "; $i++; } close(FILEHANDLE);