foreach my $line (@results)