Quantum Bogosort

I need help implementing quantum bogosort. So far I got the following:

shuffle(list);
if(isntSorted(list))DestroyUniverse();

Particularly I need help implementing the DestroyUniverse() function.

#!/usr/bin/perl

use Quantum::Superpositions;
use Random::Quantum;
use feature 'say';

sub destroy_universe {
  # heavy wizardry
  print''x(new Random::Quantum(user => 'admiran', password => 'admiran'))->int4
    while 1; # repeat until successful
}

sub bogosort(@) { while($#_) { destroy_universe unless (shift) <= all @_ } }

bogosort @ARGV;
say for @ARGV;