foreach(1..100){
    do{$i = rand(99)}while exists($seen{$i});
    $seen{$i} = 1;
    $DECK[$i] = $1;
}