No one will get this one!!!

try this..........

the results are really amazing!! all the boxes that are open are squares of numbers!!
==================amazin.pl

#!/usr/local/bin/perl

##  initalize all the boxes
##  0=closed, 1=open
foreach (0..999){
  $box[$_]=0;
}

foreach $user (1..1000){  ##  For every investor..
  print $user,"\n";
  foreach($[ .. $#box){
    $ctr=$_+1;
    if (($ctr % $user) == 0){
    print "\t",$ctr,"\n";
      if ($box[$_]){
        $box[$_]=0;
      }else{
        $box[$_]=1;
      }
    }
  }
}

print "box #'s that are open \n";
foreach($[ .. $#box){
  if ($box[$_]){
    $box_no=$_+1;
    print $box_no,"\n";
  }
}