@numbers = (1..10000);
foreach $number (@numbers) {

for ($count = 1; $count <=10000; $count++)
{
	$result = $number / $count;
	unless ($result =~ /\./)
{
	push (@factor, $result);
}
}
}	

foreach $thing (@factor) {
	if ($result==$thing) {
	   my @perfectnumbers = ( );
	      push (@perfectnumbers, $result);
}
}
foreach (@perfectnumbers) {
	print "$_\n";

}