Select Code to Download

my %products (
    1 => {
...
        retail    => "65.00",
   },
);

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

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