#!/usr/bin/perl
use strict;
use warnings;


seek DATA, 0, 0;

chomp (my @array = <DATA>);
my @data = grep {length} map {s~;$~~;$_} map {split /\s+/} @array;

print "'$_'\n" for @data;

open O, '>g:/muell.pl' or die $!;
WHILE: while (1) {
    print O ' ' x (3 + 4 * int rand 3) or last WHILE;
    for (0 .. random()) {
        unless (print O ' ', $data[rand @data]) {
            last WHILE;
        }
    }
    print O ";\n" or last WHILE;
}
close O or warn $!;
        

sub random {
    return 3 + int rand 5;
}

_ _DATA_ _