The grep BLOCK LIST form takes no comma after the block -- you have a comma there. You could use the expression syntax: <code> die "..." unless grep(/\d{3}-\d{3}/, values %hash) == 6;

japhy -- Perl and Regex Hacker