sub einlesen{
     my ($list,$hashref) = @_;
    
    if(defined $hashref->{input} && defined $hashref->{output}){
        if(open(my $fh,'<',$hashref->{input}) && 
           open(my $w_fh,'>',$hashref->{output})){
            while(my $line = <$fh>){
                print $w_fh $. . " " . $line;
                chomp $line;
                $list->insert('end', $. . " " . $line);
            }
            close $fh;
            close $w_fh;
            $hashref->{message} = 'Die Ausfuehrung war erfolgreich!';
        }
        else{
            $hashref->{message} = 'Die Ausfuehrung war nicht erfolgreich';
        }
    }
    else{
        $hashref->{message} = 'Bitte legen Sie eine Eingabe- und eine Ausgabedatei fest:';
    }
}