Select Code to Download

my ($result2) = map { $array[$_][0] =~ /goat/ ? $_ : () } 0..$#array;
my ($result3) = grep { $array[$_][0] =~ /goat/ } 0..$#array;

my $result2 = (map { $array[$_][0] =~ /goat/ ? $_ : () } 0..$#array)[0
+];
my $result3 = (grep { $array[$_][0] =~ /goat/ } 0..$#array)[0];