Select Code to Download

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

my @movement = (0,1);
    my $from = "";
...
    elsif (@movement == (0, -1)) {$from = "south"}
#    elsif (@movement == (-1, 0)) {$from = "west"}
    print "\$from = <$from>\n";

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>

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

$from = <north>

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

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

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

$from = <>