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