#! perl -slw
use strict;

=comment
lineName        stn.                     east...north...elev.
000301038       1260 52205121N109153806W 618485158009020 6626
000301038       1261 52205121N109153674W 618510158009027 6623
=cut

for my $line ( 1 .. 1000 ) {
    for my $stn ( 1 .. 10 ) {
        printf "%08d %8d %08dN%08dW %015s %4d\n",
            $line, $stn,
            int( 1e6 * rand( 90 ) ),  int( 1e6 * rand( 90 ) ),
            int( 1e13 * rand( 90 ) ), int( rand 9999 );
    }
}