Select Code to Download

#!/usr/bin/perl -w

use strict;
...
2 tilly tilly@perlmonks.org saint today
3 tye tye@perlmonks.org saint today
4 jcwren jcwren@perlmonks.org saint today

my %hash;

my %account;
@account{ qw(name email title date) } = @row;

$hash{$id} = \%account;