- or download this
use strict;
use warnings;
...
my ($name, $code) = split(/\t/);
}
- or download this
# Still untested
if ( !defined( $hash{$name} ) ) {
$hash{$name} = $code;
}
- or download this
# Still untested
if ( !defined( $hash{$name} ) or $code < $hash{$name} ) {
$hash{$name} = $code;
}