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