http://qs1969.pair.com?node_id=53031

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I'm posting anonymously to defeat being voted down...

This is probably really easy. I just don't know how to make this any better: I am trying to make a hash of row references:

foreach my $row (@$array_ref) { $hash{$row->[0]} = $row; }
Where $array_ref is a pointer to a two-dimensional array. Does anyone know a one liner that would do this? Thanks in advance .... :o)