$data  =  delete $data->{ (keys(%$data))[0] };