my @array;

my %hash = (
    name => "Me",
    address => "Right here"
);

push @array, \%hash;

# etc etc etc

print $array[2]->{ 'name' };  # prints name from the 3rd hash in the a
+rray.
[download]

I couldn't make this work with my data. Where am I going wrong? Nothing prints out.

$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};
}
[download]

You are not using -w or strict. In particular, there is nothing in $row, because it's only used once. $row[0] would be a more likely choice.

Let Perl help you debug.

Update: Additionally, @fields is not defined, as far as I can see. Even if your if loop executed, you'd be throwing away the data you just read in. This is *exactly* the time to use strict and -w! If the error messages confuse you, use diagnostics as well. Perl will tell you when you throw away your data and that is most of your problem here. The other part is not setting $/ to "\n;\n".