in_array() in Perl?