sub shuffler{
    foreach (@_){ 
        do{$r = int(rand($#_+1)); }while ((($r == $c) ||($temp[$r])));
        $temp[$r]= $_;$c++;
    }
    return @temp;
}