for my $line (@$work_ref) { #### @{$workref}