print sprintf("ID %10s Name: %10s Adresse: %15s Bemerkungen: %10s \n" ,@{$newdata}{qw/ID Name Adresse Bemerkungen/});