use Data::Dumper;
...
print Dumper \@wsl;
foreach $filename(@wsl)
    {
    warn "trying to open file '$filename'\n";
    open(FIN, $filename)  or die "Could not open file '$filename' $!";
    warn "successfully opened file '$filename'\n";
    while (my $row = <FIN>)
...