sub shuffle {
    my @shuffled;
    push @shuffed, splice(@_, rand(@_), 1) while @_;
    return @shuffled;
}

print shuffle @array;