G'day ThBo,

Here's a tip for you; prompted by this code:

    my $temp = $_[1];
    $_[1] = $_[0];
    $_[0] = $temp;
[download]

You can swap two (or more) array elements using array slices. Your three lines above could've been written, without the need for a temporary variable, as:

    @_[0, 1] = @_[1, 0]
[download]

Here's an example:

$ perl -wE '@_ = 0 .. 3; say "@_"; @_[0, 1] = @_[1, 0]; say "@_"'
0 1 2 3
1 0 2 3
[download]