Select Code to Download

use strict;
use warnings;
...
}

print $records{$_} for grep $products{$_} == 1, keys %records;

Product 3
------------------------------------------------------------------
...
distance = 7.49
city = some city
fullStreet = some address