Select Code to Download

1 2 3 4 5 6 a b c

x           y
1 2 3 4 5 6 a b c

      x           y
a b c 4 5 6 1 2 3

$y = $offset_y if $y == @$ary;

      x     y
a b c 4 5 6 1 2 3

sub do_swaps {
    my ( $ary, $offset_x, $offset_y, $swaps ) = @_;
...
    
    return $swaps;
}