use strict;
use warnings;

open FILE, $my_file or die "Can't open $my_file\n";
my %hash;
while (<FILE>) {
  my ($name, $code) = split(/\t/);
 
}

##</code><code>##

  # Still untested
  if ( !defined( $hash{$name} ) ) {
    $hash{$name} = $code;
  } 

##</code><code>##

  # Still untested
  if ( !defined( $hash{$name} ) or $code < $hash{$name} ) {
    $hash{$name} = $code;
  }