use Modern::Perl;

my $count = 0;
print   defined $count
            ? do {
                my $s = '';
                $s .= '=' until $count++ == 10;
                $s
            }
            : "Undefined count.\n";