Array problem

[Alphabin]

I have the following:

open(FILE,"$File.txt") || die("Could not open file!");
my @Data=<FILE>;
close(FILE);

foreach my $record (@Data) {
chop $record;

	my @field=split(/\|/,$record);
	
	if ($input{'srh'} == $field[5]) {
	push (@found,[@field]);	
	print $field[0];
}

}

Now I want to store the $field[0] data into an array so that I can use it in a statement in another sub-routine.

 

[PaulTEG]

my @found_items=&findit;

sub findit {
...
push @found, $field[0];
...
return @found;
}

HTH
--Paul