my ($lowest) = sort {$products_and_prices->{$a} <=> $products_and_prices->{$b}} keys $products_and_prices;