if ( my $cat = $categories[$c] ){
    $h{$val}=$cat;
}