if (in_list (@list, $my->{long}{to}{type}{variable}[0])
 {
 # do something...
 }