open (FILE, "$record") or die "can't open $record: $!";
my @record = reverse <FILE>;
close FILE;
##</code><code>##

%member = ( $timestamp => 
   [$current_time, $funds, $action, $current_funds]);

##</code><code>##

$member{$timestamp} = 
   [$current_time, $funds, $action, $current_funds];