Hi there, Unfortunately there is a problem as I don't seem to be passing anything in. Is the code you suggest ok, or have I made an error elsewhere in the code? What is the most convenient way for me to find out?

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

    print "Hi there\n";
    print "@array_of_lines";  # THIS IS NOT PRINTING ANYTHING
    exit;
[download]

Update:

I get an error message:

Use of uninitialized value $_[1] in join or string at receive_annotati
+ons_B.pl line 162.
[download]

When the following is used:

sub create_output (\@$)  {
    
    my ($arrayref_of_lines, $entry_no_new) = @_;    # THIS DOES NOT WO
+RK
    
    my @array_of_lines = @$arrayref_of_lines;
    

    print "Hi there\n";
    print "@_";
    print "@array_of_lines";
    exit;
[download]