Select Code to Download

use strict;
use warnings;
...
        delete($hash->{int(rand($i))});
    }
}

Benchmark: timing 1 iterations of array, hash...
     array:  8 wallclock secs ( 7.38 usr +  0.00 sys =  7.38 CPU) @  0
+.14/s (n=1
...
      hash:  0 wallclock secs ( 0.25 usr +  0.00 sys =  0.25 CPU) @  4
+.00/s (n=1
)
            (warning: too few iterations for a reliable count)