foreach my $file ( @FILES )
{
    open my $inFH, '<', $file
       or die "open: < $file: $!\n";
    ...
}