foreach my $key (sort {$products{retail}{$a} <=> $products{retail}{$b} keys %products) {
    print "<br>K|$key| N|$products{$key}{name}| W|$products{$key}{wholesale}| R|$products{$key}{retail}|";
}