Select Code to Download

use Data::Dumper::Simple;
print "Welcome to Tomcat Access Log Parser\n";
...
print Dumper @response_array;

 
                    {
                      'date' => '15/Dec/2010:12:36:21',
...
                      'method' => 'GET',
                      'code' => '200'
                    }