Obfuscated random game of lotto.<br>
My first script in perl!
#!/usr/bin/perl
                        srand;
                        $i=0;
                        @c=(1 .. 90);
                        @q=
                        ("frst",
                         "scnd",
                         "trz",
                         "qrt",
                         "qnt");
                        while
                        ($i<5)
                        {$e=
                        int
                        (rand
                        ($#c-$i)
                        );
                        $u=$#c-$i;
                        print
                        "index: $e   ";
                        ($c[$e],$c[$u])=($c[$u],$c[$e]);
                         print"the $q[$i] n° is: $c[$u]\n";$i++;}