for my $line (@$work_ref) {