#!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";
}