#!/usr/bin/perl -w
my @movement = (0,1);
    my $from = "";
    if (@movement == 2) {$from = "north"}
    elsif (@movement == (1, 0)) {$from = "east"}
    elsif (@movement == (0, -1)) {$from = "south"}
#    elsif (@movement == (-1, 0)) {$from = "west"}
    print "\$from = <$from>\n";

##</code><code>##

my @movement = (0,1);
    my $from = "";
    if (5 == (3,4,5)) {$from = "north"}
    elsif (@movement == (1, 0)) {$from = "east"}
    elsif (@movement == (0, -1)) {$from = "south"}
#    elsif (@movement == (-1, 0)) {$from = "west"}
    print "\$from = <$from>\n";

##</code><code>##

Useless use of a constant in void context at ./t.pl line 4.
Useless use of a constant in void context at ./t.pl line 4.
$from = <north>

##</code><code>##

#!/usr/bin/perl -w
my @movement = (0,1);
    my $from = "";
    if (5 == (0,0,5)) {$from = "north"}
    elsif (@movement == (1, 0)) {$from = "east"}
    elsif (@movement == (0, -1)) {$from = "south"}
#    elsif (@movement == (-1, 0)) {$from = "west"}
    print "\$from = <$from>\n";

##</code><code>##

$from = <north>

##</code><code>##

#!/usr/bin/perl -w
my @movement = (0,1);
    my $from = "";
    if (@movement == (1, 0)) {$from = "east"}
    if (@movement == (-1, 0)) {$from = "west"}
    print "\$from = <$from>\n";

##</code><code>##

Useless use of a constant in void context at ./t.pl line 5.
$from = <>

##</code><code>##

#!/usr/bin/perl -w
my @movement = (0,1);
    my $from = "";
    if (@movement == (0,1)) {$from = "east"}
    print "\$from = <$from>\n";


##</code><code>##

$from = <>