Select Code to Download

use warnings;
use PDL;
...
my $further_rearranged = $rearranged->dice_axis(1, $indices);

print "Column and row swap:\n$further_rearranged\n";

Original:

...
 [20 22 21 23 24]
 [15 17 16 18 19]
]