#!/usr/bin/perl -w
use strict;

my %results = (
        'results'       =>      [
                [10, 13, 14]
        ],
);

# Add array reference to integer number without a warning,
# result is a big number, 10896017 on my architecture
print 1 + $results{'results'}->[0], "\n";

# print number of elements in array + 1
print 1 + scalar(@{$results{'results'}->[0]}), "\n";

# forgot @{, produces big number (10896017)
# very easy to do mistake
# can lead to hours of bughunting
print 1 + scalar($results{'results'}->[0]), "\n";