Select Code to Download

sub foo {
    my @arr = ();
...

    zzz($array_ref);   # zzz() will do some read-only operations with 
+this array
}

sub foo {
    my %hash = ();
...

    zzz(\@array);  # zzz() will do some read-only operations with this
+ array
}