#!/usr/bin/perl

use strict;
use warnings;

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

my $ergebnis = welches_element_ist($name, @namen);
$ergebnis+=1;
print "$name ist das $ergebnis-te Element in der Liste.\n";


# -------------------------------------------------------------------
# -- SUBS
# -------------------------------------------------------------------

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 $_;
                }
		}
		
        return -1;
} # /welches_element_ist