use 5.014; use Data::Dumper; open my $inFH, q{<}, \ <; close $inFH or die $!; print Data::Dumper->Dumpxs( [ \ @dataLines ], [ qw{ *dataLines } ] ); #### @dataLines = ( { 'M' => '25', 'J' => '58.34', 'Y' => '649.62', 'H' => '2', 'I' => '77.33', 'N' => '260', 'X' => '142.05', 'G' => '02' }, { 'M' => '20', 'N' => '265' }, { 'G' => '45', 'N' => '270' }, { 'G' => '01', 'Y' => '608.8', 'X' => '304.78', 'M' => '25', 'C' => '45.91', 'N' => '275' }, { 'M' => '20', 'N' => '280' }, { 'N' => '285', 'C' => '0', 'G' => '46' }, { 'Y' => '638.4', 'J' => '67.4', 'M' => '25', 'G' => '03', 'X' => '324.39', 'I' => '-69.58', 'N' => '290', 'H' => '2' }, { 'N' => '295', 'M' => '20' }, { 'G' => '45', 'N' => '300' }, { 'N' => '305', 'C' => '326.5', 'M' => '25', 'G' => '01', 'Y' => '592.89', 'X' => '180.04' }, { 'N' => '310', 'C' => '26.5', 'X' => '279.77', 'Y' => '586.78' }, { 'Y' => '584.57', 'X' => '195.39', 'C' => '336.5', 'N' => '315' }, { 'X' => '228.31', 'Y' => '579.58', 'N' => '320', 'C' => '355.92' } );