#!c:/perl use strict; use warnings; my @liste1 = (); my @liste2 = 4, 28, 9, 100, 12, 84, 10, 11; sub new{ print "Bitte geben Sie 10 Zahlen ein: \n"; my $eingabe = ; chomp($eingabe); $liste1{$eingabe}() if defined $liste{$eingabe}; print "Sie haben folgende Zahlen eingegeben: ($eingabe) \n"; }