for (@{$HoA{cluster}}) {
 print "Matches\n" and last if $value eq $_;
}