#!/usr/bin/perl

use strict;
use warnings;

my %sparse;
@sparse{1,1,1,0,0,1,1,0,2,1,1,1,1,1} = ();
print "There are ", scalar keys %sparse, " elements in this array\n";