The goal of coding is to minimize the work efford, why reinvent the wheel when there are modules like Data::Table and Data::Tabular out there (on CPAN) that does all the hard work for you?