Select Code to Download

foo(\%bar);

...
    my ($bar_ref) = @_; #same as above but I can not process anything 
+else from the list
    my $bar_ref = shift; # same as #1 but I want to continue processin
+g @_ and am unsure about indexes and/or presence
}