my @array;
my $ideal = 250;

while (<INPUT>)
{