map { ...code here... } @array

##</code><code>##

# Predeclaration
sub partition($\@);

...

sub partition($\@){

    my ($coderef, @array) = @_;

    # Do something with these variables

}