sub random_param {
    my @x;
    for ( 1..14 ) {
        #my $r = ( int rand 9 ) + 1;   # 1 .. 9
        my $r = ( int rand 19 ) - 9;   # -9 .. 9
        redo if $r == 0;
        push @x, $r;
    }
    print join ' ' => @x;
    print "\n";
}


for ( 1..1000 ) {
    random_param();
}