I don't see the original here, so I don't know if this has been suggested... but you could just stick the numbers in an array, then shuffle the array, then print them. Use the Fisher-Yates Shuffle, which avoids the splice quadratic algorithm bit.

    sub fisher_yates_shuffle {
        my $array = shift;
        my $i;
        for ($i = @$array; --$i; ) {
            my $j = int rand ($i+1);
            next if $i == $j;
            @$array[$i,$j] = @$array[$j,$i];
        }
    }

    my $N = 50;
    my @array = (1..$N);
    fisher_yates_shuffle( \@array );    # permutes @array in place

    print "@array";
[download]

From perlfaq4, How do I shuffle an array randomly?.