use strict;
use warnings;

my %bausteine = (
   begruessung => sub { print "Hallo du da\n\n" },
   abschied    => sub { print "Mit freundlichen Gruessen\n" },
   mein_name   => sub { print "dyspro\n" },
);

sub main {
   print STDOUT "Eingabe: ";
   my $eingabe = <STDIN>;
   chomp($eingabe);
   $bausteine{$eingabe}()
      if defined $bausteine{$eingabe};
}

&main;