$count += $message[$_] for 0..@message-1 ;