You could swap both cols in a while or for loop, for instance

foreach (@col){
($col[0], $col[1]) = ($col[1], $col[0]);}
[download]