while ($can = <BOX>) {   <- reads one line
    $can = <BOX>;        <- reads another