Urg, ambiuous use of %{shift}. Instead, use:

# ... or to use as regular hashes
my %genes = %{+shift};
my %codonTotal = %{+shift};

# ... or even
my %genes = %{$_[0]};
my %codonTotal = %{$_[1]};
[download]

:)