my @array = subroutine($file1, $list1); #foreach my $item(@array) { #print "$item\n"; # }