% perl -l
@foo = ("Hello", "Cillian");
$x = scalar @foo;
$y = scalar ("Hello", "Cillian");
$z =()= ("Hello", "Cillian");
print "x: $x; y: $y; z: $z"
# and now I hit ^D to run the program:
x: 2; y: Cillian; z: 2