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