This should give you a count of the values you want:

my %id_count;

$id_count{ $hash{ $_ } }++ for grep /:213119_at:/, keys %hash;
[download]