#!/usr/bin/env perl
use warnings; use strict;
$|++;
my @start = times;
for (1 .. 5) {
    print ".";
    recuridle(qw(a b c));
}
print "\n";
my @end = times;
my @diffs = map { $end[$_] - $start[$_] } 0 .. $#end;
print "Dauer insgesamt ist @diffs";


sub recuridle {
    return if @_ > 100;
    my @foo = @_;
    return recuridle(@foo, [@foo]);
}