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

my (@test,%test);
$test[99999999] = defined;	# das dauert tierisch lange
$test{99999999} = defined;	# das dauert nicht so lange