sub format_output {
    my ($var1, $var2, $parray1, $parray2) = @_;
     
    # One way to iterate through an array
    foreach (@$parray1) {
        print "The next item in the array is $_\n";
    }

    # Another way to iterate through an array
    for (my $i = 0; $i < @$parray2; $i++) {
        printf "Array item #%d = %s\n", $i+1, $parray2->[$i];
    }
}