#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

my $sub_timer = sub {
    my ($par) = @_;
    $par->{abgelaufen} ++;
    say "Pause $par->{abgelaufen}";
    sleep 1;
};
my %params = (
    abgelaufen  => 0,
);
while ($params{abgelaufen} < 5) {
    $sub_timer->(\%params);
}
say "Fertig";