use strict;

my @a = ( '1', '2', '3', '4', '5' );
print scalar @a, "\n";