if ( my $lost = @snapshot_listing - keys %snapshot_roster ) {
    warn sprintf( "There were %d bad entries in %d input records\n",
            $lost, scalar @snapshot_listing );
}