#!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 = <STDIN>;
  chomp($eingabe);
  $liste1{$eingabe}()
     if defined $liste{$eingabe};
  print "Sie haben folgende Zahlen eingegeben: ($eingabe) \n";
}