srand;
my @c = ( 1 .. 90 );
my $i = 0;

while ( $i < 5 ) {
    my $e = int( rand( $#c - $i ) );

    my $u = $#c - $i;
    ( $c[$e], $c[$u] ) = ( $c[$u], $c[$e] );
    print "
 $c[$u]\n";

    $i++;
}