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;