(C) 2003, Tim Maher       1-21       www.TeachMePerl.com
Record Browser
(cont.)
.
.
  # Load hash with records, indexed by fields
 foreach ( `cat "$file"` ) {
     # specified field is key, value is record
    $f2r{ (split /$delim/, $_)[$field] } = $_ ;
 }
 .
  # Show menu of keys, display records
 select my $record ( sort keys %f2r ) {
    print "$f2r{$record}" ;
 }