use Time::HiRes 'time';

my @array;
#$#array = 3_000_010;

$start = time();
for( 1 .. 3_000_000 )
{
    $array[$_] = 'x';
}
$end = time();

printf "Die Zeit Betrug %lf Sekunden\n", $end - $start;
printf "Das Array hat %d Eintraege\n", scalar @array;