sub create_output (\@$)  {
    
    my (@array_of_lines, $entry_no_new) = @_; 

##</code><code>##

use feature ":5.14";
use warnings FATAL => qw(all);
use strict;
use Data::Dump qw(dump pp);

sub foo(\@)
 {my ($array) = @_;
  say "@$array";
 }

my @array = qw(1 2 3);
foo(@array);

##</code><code>##

1 2 3