#!/usr/bin/env perl 
use strict;
use warnings;
use Test::More tests => 3;

my $data = ['alpha', 'beta'];
my $count = $#$data + 1;
is ($count, 2, 'With elements');

$data = [];
$count = $#$data + 1;
is ($count, 0, 'Without elements');

$data = undef;
$count = $#$data + 1;
is ($count, 0, 'As undef');