#!/usr/bin/perl                                            
                                                           
use strict;                                                
use warnings;                                              
                                                           
# legs of one ant                                          
sub AN_ANT_LEGS { 6 };                                     
                                                           
for my $i (1 .. 100){
    print "$i ant".($i > 1 ? "s" : "")
    ." ".($i > 1 ? "have" : "has")
    ." ".(AN_ANT_LEGS * $i)." legs\n"
    ;
}

