Select Code to Download

foreach my $line (@record) {
($timestamp, $current_time, $funds, $action, $current_funds) = split "
+\t",$line;
...
    $count += 1;
    }
}

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