#!/usr/bin/perl -w
use Time::HiRes 'time';

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


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

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