#!/usr/bin/perl -l

## list:
print scalar (4,5,6,7); ## 7

## array:
my @foo = (4,5,6,7);
print scalar @foo;      ## 4