use warnings;
use strict;
use Text::Table;

my $table = Text::Table->new("Person1 ", " Person2");

  $table->load(
   ['boy ',' girl'],
   ['father ',' mother'],
   ['sister ',' brother'],
  );
  
  print $table;