use Smart::Comments;    # Enable special comments for debugging

my $data_structure  = {
    a => [ 1, 2, 3 ],
};
my $scalar          = 42;

### This is a comment.
### <now> I'm happy.
### $data_structure
### $scalar

#my $max        = 2**4;     # slow
 my $max        = 2**2;     # fast

for (0..$max) {         ### for1...         done
    sleep(1);
};

for (0..$max) {         ### for2 |===[%]    |
    sleep(1);
};