use List::Util qw( min );

print
    min
    map { (split /\|/)[2] }
    values( %{ $h{add_loc} } );
[download]