...

if (!exists $hash{$name}) {
    # unconditionally assign the first entry
    $hash{$name} = $code;
} else {
    # assign further entries only if smaller... 
    $hash{$name} = $code if $code < $hash{$name};
}