#!/usr/bin/perl -w
# coding: UTF-8

use strict;
use warnings;

use Data::Dumper;

my @a = ( 0, undef, 2 );
dump_array( @a );
dump_array( 0, undef, 2 );

sub dump_array
{
    my @in = @_ ;
    print Dumper(\@in);

    for (my $i = 0; $i < @in; $i++) {
        print "item $i exists: ", exists $in[$i] ? 'yes' : 'NO', "\n";
    }
    print "\n";
}
1;