for my $entry(@data){
   print sprintf("%-*s %-*s %-*s<<\n",$len_vorname,$entry->[0],
                                      $len_nachname,$entry->[1],
                                      $len_domain,$entry->[2]);
}