sub foo(&@) {
    my $coderef = shift;
    my @ret;

    for( @_ ) { ## let the for loop do the localisation and aliasing
        push @ret, $coderef->(); ## No arg
    }
    return @ret;
}