($si->{mem_unit} == 1) ? "the memory values are the actual sizes in bytes :\n"
: "the sizes in bytes are actually :\n";
print '- ', $_, ': ', $si->{$_} * $si->{mem_unit}, "\n" for sort
($si->{mem_unit} == 1) ? "the memory values are the actual sizes in bytes :\n"
: "the sizes in bytes are actually :\n";
print '- ', $_, ': ', $si->{$_} * $si->{mem_unit}, "\n" for sort