$analysis_table = Text::Table->new(\'| ',"VIEW_NAME",\' | ',"UNCERTAINITY_TYPE\n TNS | WNS ",\' | '); foreach my $key(keys %analysis_hash){ my $temp = "$analysis_hash{$key}->{'uncertainity_type'} | $analysis_hash{$key}->{'uncertainity_type'}" ; $analysis_table->add($key,$temp) ; } my $rule = $analysis_table->rule(qw/- +/) ; my @body = $analysis_table->body; print $rule, $analysis_table->title, $rule; for (@body) { # align('center',$_); print $_ . $rule ; }