use 5.9.5; say scalar grep { time } @$array_referenz;