Processing 50 million lines is going to be "slow".

Do not push to an array if you can process the line right now!

while(<FILE>)
{
   if(/^sample\s+(\S+)/){process_sample($1)}
   if(/^good\s+(\S+)/)  {process_good($1)}
}
[download]