CODE____________
open(FILE, "$lfilename") or &dienice;
while(<FILE>) {
     @row = split(/\;/);
     if ($row[0] eq "A001"){
        %data;
        @data{@fields} = @row; 
        push @records, \%data; 
    }
 }    
close (FILE);
foreach my $ref ( @records ) {
    print $ref->{Don't know what to put here};
}


DATA____________
Begin Product A0001
	Small gadget
	5.00 0.00
	0.25 0.00
	No ; Tracking Inventory?
	/Images/gadget1.jpg
	ProdText\A0001.txt
	Begin Option Gadget Color
		Red
		Green
		Blue
		Yellow
		Black
		White
	End Option
	Begin Option Extra Attachment
		No Attachment <NoShow>
		Attachment ($5.00 extra) <+5.00> <NoTitle>
	End Option
End Product
;
Begin Product A0002
	Huge Widget
	25.00 2.50
	20.00 0.00
	Yes ; Tracking Inventory?
	/Images/gadget2.jpg
	ProdText\A0002.txt
	Begin Option Widget Color
		Red
		Green
		Blue
		Yellow
		Black
		White
	End Option
	Begin Option Monogramming
		Include monogramming <NoTitle> <Custom:0.05>
		No monogramming <NoTitle>
	End Option
End Product
;
Begin Product GPY01A1
	GPY Angel 1 Print 8.5x11
	140.00 0.00
	1.00 3.00
	No ; Tracking Inventory?
	http://www.monkey-n-around.com/GPY/gallery/images/sang1.JPG|http://www.monkey-n-around.com/GPY/gallery/images/sang1.JPG
	ProdText\GPY01A1.txt
	SoftGoodControl: ::0:0
	PriceCategory: Wholesale:114.00:114.00 Retail:114.00:114.00 Residential:114.00:114.00 Commercial:114.00:114.00
End Product
;