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