sub create_output (\@$) { my ($arrayref_of_lines, $entry_no_new) = @_; # THIS DOES NOT WORK my @array_of_lines = @$arrayref_of_lines; print "Hi there\n"; print "@_"; print "@array_of_lines"; exit;