#!/usr/bin/perl

use strict;
use warnings;
use File::Find::Rule;
use Storable qw(retrieve);
use Data::Dumper;


my @files = File::Find::Rule->file()
                              ->name( '*.foo__bar_ar' )
                              ->in('/home/foo/bar/snafu');
#print Dumper (@files);



	foreach my $row (@files) {
		my @total_data = retrieve($row);
		my $target_data = map $_->[11], @total_data;
  
		print "Target data: $target_data\n";

	}

##</code><code>##

thing1.foo__bar_ar
1,18.4,7.6,10.8,0.584615384615385,22,4.0,18,0.307692307692308,0.664861632672521,0.968405008381221,0.816633320526871
0,31.5,18.9,12.6,0.75,199.7,29.2,170.5,0.255133245958934,0.150796748317197,0.968809826017511,0.559803287167354
0,115.2,35.9,79.3,0.475181998676373,13.7,8.3,5.4,0.754545454545455,0.855054749249092,0.272628302983597,0.563841526116344
0,969.7,1034.6,-64.8999999999999,1.03238038217832,1607.6,582.0,1025.6,0.531603945926197,0.0340815410482703,0.81304569847144,0.423563619759855
0,3.2,13.2,-10,1.60975609756098,22.2,58.2,-36,1.44776119402985,0.000189855866797165,0.000793472305521753,0.000491664086159459

thing2.foo__bar_ar
0,124,24.9,99.1,0.334452652787105,533.5,764.2,-230.7,1.17777606534638,0.959457725728336,0.00783065425975528,0.483644189994046
0,23.1,21.3,1.8,0.959459459459459,111.4,35.7,75.7,0.485384092454113,0.051736839732654,0.841995362489232,0.446866101110943
0,65.2,106.7,-41.5,1.24141942990111,10.5,23.1,-12.6,1.375,0.00457360051269834,0.00151695997213462,0.00304528024241648
0,4309.7,162.2,4147.5,0.0725418725821239,5949.4,350.9,5598.5,0.111391521038681,0.995577034355054,0.993485851801997,0.994531443078526
0,10.5,17.7,-7.2,1.25531914893617,9.9,17.1,-7.2,1.26666666666667,0.00124657203727433,0.00112269442213042,0.00118463322970237

thing3.foo__bar_ar
0,3384.5,129.2,3255.3,0.0735407120698978,19718.2,2209.1,17509.1,0.201493115887501,0.995983099858049,0.988053036660467,0.992018068259258
0,2483.6,571.2,1912.4,0.373968835930339,139.1,23.8,115.3,0.292203806015961,0.995670903509154,0.998383366800592,0.997027135154873
1,13.7,26.3,-12.6,1.315,12.3,3.2,9.1,0.412903225806452,0.000255695896069042,0.821140634122146,0.410698165009108
0,11323.1,1750.2,9572.9,0.26775183006586,1886.3,49.6,1836.7,0.0512423162353427,0.964837401973032,0.994660051822814,0.979748726897923
0,18789.6,2845.0,15944.6,0.26300463146996,2834.9,86.2,2748.7,0.0590188627571804,0.966390332824062,0.99432887614011,0.980359604482086

thing4.foo__bar_ar
0,9239.1,2341.0,6898.1,0.404314297803991,8755.6,920.3,7835.3,0.190225198689528,0.938134184255461,0.986710551917049,0.962422368086255
0,640.2,29.2,611,0.0872423065431731,291.6,19.5,272.1,0.125361620057859,0.992917934751572,0.990319885849402,0.991618910300487
0,96.4,24.3,72.1,0.402651201325601,315.1,62.7,252.4,0.331921651667549,0.873629030952342,0.935006962479539,0.904317996715941
1,44.7,46.5,-1.8,1.01973684210526,19.6,53.9,-34.3,1.46666666666667,0.0629076470018427,0.000324736116046742,0.0316161915589447
1,66.5,17.8,48.7,0.422301304863582,29.6,26.0,3.6,0.935251798561151,0.908927363824235,0.0637831300468857,0.48635524693556

##</code><code>##

1,0.816633320526871,0.483644189994046,0.992018068259258,0.962422368086255
2,0.559803287167354,0.446866101110943,0.997027135154873,0.991618910300487
3,0.563841526116344,0.00304528024241648,0.410698165009108,0.904317996715941
4,0.423563619759855,0.994531443078526,0.979748726897923,0.0316161915589447
5,0.000491664086159459,0.00118463322970237,0.980359604482086,0.48635524693556