<nitpick>

I would prefer the output to be numerically sorted.

print $fvalues{$_}, "\n" for sort { $a<=>$b } keys %fvalues;
[download]

</nitpick>