Select Code to Download

%nuc = (
'F' => [0.001, 0.001, ...],
...
)

my %mapping = (
    1 => "A",
...
    # Default value (last else-Statement)
    $names[$j]="V";
}