#!/usr/bin/perl -W

use strict

my @namen =qw(Fred Dino Sascha Julia Drache Amin);

my $ergebnis = &welches_element_ist("Dino", @namen);

sub welches_element_ist{
my ($was , @array) =@_;#das @_ kommt aus der Sub

	foreach (0..$#array){
		if ($was eq $array[$_]) { # das $_ kommt aus der schleife
		return $_;
		}		
     }
	-1;
}

$ergebnis+=1;
print "'$ergebnis'\n";