1:16 >perl 559_SoPW.pl
name:      name
condition: eq
array:     ("Apple", "Tomato", "Orange")

 1:17 >