I'd do it this way, for a variety of reasons. The subroutine nested within the block bothers me, and I think there's a better way to handle the file reading: 
#!/usr/bin/perl -w 

use strict;

local *EXA;
local *INFO;

opendir (EXA, "/export/home/cad/data/products") || die "no dir?: $!";
foreach my $name(sort readdir (EXA)) {
    print "$name\n";

    open(INFO, "/export/home/cad/data/products/$name/source/$name.bom"
+) || die "no dir: $!"; 
    while (my $line = <INFO>) {  
        $line=~tr/(//d;                   #Cut out all the exa garbage
        $line=~ s/COMP//;
        $line=~ s/BOARDPLACEMENT_BOM brd//; 
        print "\n    $line  "; 
    }
    close(INFO) ;  
    print "\n ------------------------ \n";    
  }
closedir(EXA);

[download]
Not only is this a little cleaner, and it gets rid of the troublesome nested subroutine, it avoids reading a potentially large file into memory. If you're just going to iterate over each line later, why use an array? (Acceptible answer, "When you need to open and close the file as quickly as possible.")

Explanation of the local: I like declaring typeglobs, it's fun. If you're really particular, wrap the whole bit in a block, from before the local statements to after the close statement, and this can be part of a bigger program that might also have filehandles named EXA and INFO. You won't clobber them here.

In reply to RE: Can't open file within subroutine by chromatic
in thread Can't open file within subroutine by Lydia

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.