my $med = median(@{$organisms{$organism}});  #bad form, masks %med declared in outer scope. Use a different name for this variable, eg. $med_calculated.
    $med{$organism} = $med;