#!/usr/bin/perl -l

use List::Util "first";

my @array = qw(a b c d);

my $index = first { $array[$_] eq "c" } 0..$#array;

die "c was not found in \@array" if ! defined $index;
print $array[$index-1];