#!/usr/local/bin/perl
# Jaime Prilusky, 2003
$|=1;

  %data =
   ('Catalytic activity'   => 'PC + H(2)O = Choline + PA',
    'Function'             => 'Signal transduction, membrane trafficking',
    'Regulation'           => 'Activated by PIP2, PIP3, ARF1',
    'Subcellular location' => 'Cytoplasmic, and inner membrane-associated',
    'Similarity'           => 'Belongs to the Phospholipase D family');

  $rti = \%data;

  print "type: reference to a ",ref $rti,"\n";

  print "references:\n";

  foreach $k (keys %{$rti}) {
    print "$k => $$rti{$k}\n";
  }