while (<FH>) {
    chomp;
    $ytd{ $_->[0] }{'oct01'} = $_->[1] for [ split ',' ];
  }