map{ ... } @array;
... for @array;

sub each{
    my $code = shift;
    $code->( $_ ) for @_;
}