#!/usr/bin/perl -w

sub indexArray($@)
{
 my $s=shift;
 $_ eq $s && return @_ while $_=pop;
 -1;
}

my @array=('john','paul','ringo','george');

print indexArray('john',@array) ."\n";      # Returns 0
print indexArray('ringo',@array) ."\n";     # Returns 2
print indexArray('mick',@array) ."\n";      # Returns -1