use Text::Table;

    my $tb =
      Text::Table->new( "Words", "Value1", "Value2", "Value3", "Value4" );

    $tb->load(@vals);

    print $tb;