use strict ;
use warnings ;
use diagnostics ;
my $index ;
my $Instance ;
my $numClients ;
my @ClientList ;
use Scalar::Util qw(looks_like_number) ;

print "How many Clients are you entering? \n" ;         # 5
$numClients = <STDIN> ;
chomp($numClients) ;
if ( !looks_like_number($numClients) ) {
   print "   Your input is NOT a numeric\n" ;
   exit(1) ;
}