Select Code to Download

foreach $line (@lines) { 
  ($time, $id, $open) = parse($line);
...
  ($time, $id, $code) = parse($line);
  $total += $time-$open;
}

while (@lines) { 
  $line = shift(@lines);
...
    delete $hash{$id}{open};
  }
}