C:\ww>perl 744750.pl   
Extract begins with the input line acompany----engineer=====itdept-----33
Extract begins with the input line bcompany----butcher=====killingfloor-----34
Extract begins with the input line acompany----baker=====oven-----35
Extract begins with the input line acompany----candlestickmaker=====tallow-----36
Extract begins with the input line acompany----monk=====monastery-----37
back in main elapsed time for a 5-element @source was: 0.000818967819213867