my $lowest = min values $products_and_prices;

##</code><code>##

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