#!/usr/bin/perl -w

use Time::HiRes 'time';

$string = "x" x 3_000_000;
my @array;
#$#array = 3_000_010;

$start = time();
@array = split( //, $string );
$end = time();

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