@long   = (1, 2, 3, 4, 5);
@sparse = (1,  ,  , 4,  );
@short  = (1, 4);
print "Equals\n"  if $#long  == $#sparse;
print "Shorter\n" if $#short == $#sparse;