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++;
}
[download]

All of the above could be easily replaced by

srand;@_=1..90;print$_[rand($#_-$_)],$/for+1..5;
[download]

(That's something for the OP to think about.) :-P