#!/usr/bin/perl -w
use strict;

# Why the inconsistency with warning messages?
    my @movement = (0,1,2,3,4);
    my $from = "";
    if (@movement == (0,1,2)) {$from = "012"} # no warning
    if (@movement == (1,2,3)) {$from = "123"} # 1 warning
    if (@movement == (2,3,4)) {$from = "234"} # 2 warnings
    if (@movement == (3,4,5)) {$from = "345"} # 2 warnings

    if (@movement == (-0,-1,-2)) {$from = "012"} # 1 warning
    if (@movement == (-1,-2,-3)) {$from = "123"} # 2 warnings
    if (@movement == (-2,-3,-4)) {$from = "234"} # 2 warnings
    if (@movement == (-3,-4,-5)) {$from = "345"} # 2 warnings
    
    if (@movement == (0,1,0,1)) {$from = "0101"} # no warning
    if (@movement == (1,2,1,2)) {$from = "1212"} # 1 warning
    if (@movement == (2,3,2,3)) {$from = "2323"} # 3 warnings
    if (@movement == (3,4,3,4)) {$from = "3434"} # 3 warnings