use 5.010;
my $english = 'foobar';
my $foreign = -1;
say ($english && $foreign);  # says "-1"
say ($foreign && $english);  # says "foobar"