Select Code to Download

use 5.014;
use Data::Dumper;
...
close $inFH or die $!;

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

@dataLines = (
               {
...
                 'C' => '355.92'
               }
             );