#!/usr/bin/perl


while()

my $count=o;
{
 print 'Enter a number';
  chomp ($input = <STDIN>);
  foreach $input
{$count++
}
last;
 }