for my $line (@record[0..9]) {
  ($timestamp, $current_time, $funds, $action, $current_funds) = split "\t",$line;
  $member{$timestamp} = [$current_time, $funds, $action, $current_funds];
}