use List::Util qw/ first /;
my $item = first { $_ eq 'something' } @array;