#!/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";

	}