@wslfiles[0]='\\\\XXXXXXX\\f\$\\apps\\webapps\\auth.wsl';
my @wsl = @{$_[0]};
foreach $filename(@wsl)
	{
	open(FIN, $filename)  or die "Could not open file '$filename' $!";
	while (my $row = <FIN>) 
....
}