my @liste1 = ();
# ....
sub new{
  $liste1{$eingabe}()
}