#!/usr/bin/perl -w
use strict;
our $dead = 7928742;
format STDOUT =
There are @#######,### dead.
          $dead,
.
write;