Select Code to Download

@$array[$i,$i+1] = @$array[$i+1,$i];

#!/usr/bin/perl -wT
use strict;
...
=output
Before: A B C D
After : A C B D