Select Code to Download

use strict;
use warnings;
...
close $logFH or die qq{close: << HEREDOC: $!\n};

print Data::Dumper->Dumpxs( [ \ @results ], [ qw{ *results } ] );

@results = (
             [
...
               '2009-02-18'
             ]
           );