my %products (
    1 => {
        name      => "Floor Wax",
        wholesale => "50.00",
        retail    => "75.00",
    },
    2 => {
        name      => "Paper Towel",
        wholesale => "20.00",
        retail    => "40.00",
    },
    3 => {
        name      => "Hand Soap",
        wholesale => "30.00",
        retail    => "65.00",
   },
);

##</code><code>##

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

##</code><code>##

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}|";
}