if(exists $data->{'foo'}->{'one'}){
..code..
}