use v5.24;
use warnings;
use utf8;

for my $Count ( 1 .. 10_000_000 ) {

    binmode STDOUT;
    binmode STDOUT, ':encoding(UTF-8)';
    say "⛄ Count: $Count";
}