my $eingabe;
while ($eingabe ne 'exit') {
    $eingabe = <STDIN>;
    chmop($eingabe);
    # if ($eingabe eq '1') { ...
}