#!/usr/bin/env perl 

use strict;
use warnings;

my @array   = ( 1..5 );
my $array_count     = @array;
my $scalar_context  = ( 1..5 );

print "$array_count\n";
print "$scalar_context\n";