#!/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";