open (FILE, $lfilename) or &dienice;
# my $hash;  # Never used.  ???

# my $line;  # Declared my inside the while(). ???
# my %hash;  # Declared my inside the while(). ???
my @products;
while ( <FILE> ) {
  if ( /^Begin Product (.*)/i ) {  
    my %hash;
    $hash{ 'name' } = $1;  
    $hash{ 'description' } = <FILE>;
    $hash{ 'numberline1' } = <FILE>;
    $hash{ 'numberline2' } = <FILE>;
    my $track = <FILE>;
    $hash{ 'tracking' } = ( $track =~ /(Yes|No)/i );
    $hash{ 'images' } = <FILE>;
    $hash{ 'producttext' } = <FILE>;
    my $line = <FILE>;

# Why are you doing this, anyway?
#    last if ( $line =~ /End Product/ );

    push @products, \%hash;
}}

# @products contains all of your hashes.
# Lookup the one you want in it.
print "<B>$products[0]{name}</B>";

# Where was $ref supposed to've come from?
# print "<B>", my $ref->{name}, "</B>";