while (my ($browser, $versions) = each %$row) {
ref $versions eq 'HASH' or next;
while (my ($version, $_) = each %$versions) {
while (my ($browser, $versions) = each %$row) {
ref $versions eq 'HASH' or next;
while (my ($version, $_) = each %$versions) {