my $result = (each %$data)[1];