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

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

##</code><code>##

use DB;
sub DB::db{ sleep 1 }