#!/usr/bin/perl
use strict;
use warnings;

my $count = 0;

( defined $count ) ?
    ( print "=" until ( $count ++ == 10 ) ) :
    ( print "Undefined count.\n" );