for (@data) {
    $chkReport[$i] = $frame
        ->Checkbutton()
        ->grid( -column => 0, -row => $i ); #==
    $lblReport[$i] = $frame
        ->Label( -text => $_ )
        ->grid( -column => 1, -row => $i ); #==
    $i++;
  }