while ( my $line = <$readhandle> )
{