Select Code to Download

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

use feature ":5.14";
use warnings FATAL => qw(all);
...

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

1 2 3