#!/usr/bin/perl
use warnings; use strict;
$|=1;
my @start = times;  # genauer als time
for (my $i=0; $i<=5; $i++) {  # irgendwas was Zeit kostet
        print ".";
        sleep 1;
}
print "\n";
my @end = times;
my @diffs = map { $end[$_] - $start[$_] } 0 .. $#end;
print "Dauer insgesamt ist @diffs";

#!/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]);
}

use Time::HiRes qw(time);

my $diff=$^T-time();