sub each_value (&); ... while (my ($a) = each_value {countdown($limit)}) { print $a, ':'; }