Select Code to Download

use strict;
use warnings;
...
    $arr[$n] = $arr[$_];
    $arr[$_] = $t;
}

For all items except last
    Pick random item between current item and last
    Swap that item with current item