Select Code to Download

@ARGV = filename.txt;

...
  /^(\d)\s+time\s+\d{2}\:\d{2}\:\d{2}\s+(\d+)/;
  $hash{$1} = $2;
}

  
while(<>)
{
...
    $hash{$1} = $2;
  }
}

while(<>)
{
...
   $hash{$1} = $2;
 }
}