use Text::Table;
my $tb = Text::Table->new();


@Range   = qw(10-20 20-30    30-40    41-50    51-60   61-70);
@Count   = qw(0 0 0 0 3 0);
@Percent = qw(0 0 0 0 75 0);

my @data = (
    [ "Range",   @Range ],
    [ "Count",   @Count ],
    [ "Percent", @Percent ],
);

$tb->load(@data);

print $tb;