$value = "GPY";
$lfilename = "products.pdg";
open(FILE, "$lfilename") or &dienice;
while(<FILE>) {
     @row = split(/\;/);
     if ($row eq $value){
        %data;
        @data{@fields} = @row; 
        push @records, \%data; 
    } }       

close (FILE);


foreach my $ref ( @records ) {
    print $ref->{Begin};
}