Chciałem sobie napisać, coś bardzo krótkiego, ale jednocześnie praktycznego. Generator liczb do Dużego Lotka.
#!/usr/bin/perl $l{1+int rand 49}=' 'while keys%l<6;print%l
