my @array = qw(1 3 6 8 9);
print $array[2];

  $liste1{$eingabe}()
    if defined $liste{$eingabe};

$liste1{$eingabe}

#!c:/perl
use strict;
use warnings;


my @liste1 = ();
my @liste2 = (4, 28, 9, 100, 12, 84, 10, 11);
new();

sub new{
    print "Bitte geben Sie 10 Zahlen ein: \n";
    my $eingabe = <STDIN>;
    chomp($eingabe);
    @liste1 = split /\s/,$eingabe;
    print "Sie haben folgende Zahlen eingegeben: (@liste1) \n";
}

#!c:/perl
use strict;
use warnings;


my @liste1 = ();
my @liste2 = (4, 28, 9, 100, 12, 84, 10, 11);

new();

sub new{
    for(0..9){
        print "Bitte geben Sie eine Zahlen ein: ";
        my $eingabe = <STDIN>;
        chomp($eingabe);
        push @liste1,$eingabe;
    }
    print "Sie haben folgende Zahlen eingegeben: (@liste1) \n";
}

my @liste2 = 4, 28, 9, 100, 12, 84, 10, 11;

my @liste2 = (4, 28, 9, 100, 12, 84, 10, 11);

my $eingabe = "1 2 4 5 3 6";
chomp($eingabe);
my @liste1 = split " ", $eingabe;

  $liste1{$eingabe}()
    if defined $liste{$eingabe};

my @liste1 = ();
my @liste2 = (4, 28, 9, 100, 12, 84, 10, 11);

new();

sub knot { return ( {     'zahl' => $[0],
            'linksweg' => undef,
            'rechtsweg' => undef } );

sub new{
############################
#Eingabe der ersten 10 Zahlen
############################
       ....
######################
# Erstellen des Trees
######################

my $ref_liste1 = shift;
my $zahl = shift(@$ref_liste1); #Wurzel wird mit erster Zahl der Liste1 erstellt.
my $ref_wurzel = knot($zahl);

    for $zahl (@$ref_liste1) {
    my $refvalue = $ref_wurzel;

    if ($zahl) 
        {
    while { 
############################
#Beginn des Vergleichs

        if($zahl < $$refvalue{'zahl'}) {
        if(defined($$refvalue{'linksweg'})) 
            {
            $refvalue = $$refvalue{'linksweg'};
            }
    else {
        $$refvalue{'linksweg'} = knot($zahl);
        last; #Ende
        }
    }
#######
#wenns Links nicht mehr weiter geht, geh rechts weiter
    else {
        if(defined($$refvalue{'rechtsweg'}))
             {
            $refvalue = $$refvalue{'rechtsweg'};
            }
    else { 
        $$refvalue{'rechtsweg'} = knot($zahl);
        last; 
        }
    }

}
return($ref wurzel);
}
}

'zahl' => $[0],