die "malformed index file!" unless
  scalar ( grep { $_ =~ m[\d{3}-\d{3}] }, values %batch_ids ) == 6;

##</code><code>##

syntax error at readmagazine.pl line 21, near "},"