sub name(&;@) {
   my ($code, @list) = @_;
   ...
}

# then called
name {BLOCK} LIST;