#!/usr/bin/perl

use strict;
use warnings;

my @matrix = (['Hans','Mustermann'],['Michael','Schmidt']);

my $len_vorname = find_longest(map{$_->[0]}@matrix);
my $len_nachname = find_longest(map{$_->[1]}@matrix);

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

sub find_longest{
  my $longest = 0;
  for(@_){
    my $length = length($_);
    $longest = $length if($length > $longest);
  }
  
  return $longest;
}