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