#!/usr/bin/perl
use warnings;
use strict;

use Data::Dumper qw(Dumper);

my @arr = (2,3,4,5,6);
print scalar @arr . ".\n"; # First way to print array size