while ($line = <AQ>) #file handler for pattern
{
   while ($line_data = <AS>)
    { #do the matching here.?
    }
}