use List::Util qw(min);
$hash{$set}{min} = min @{$hash{$set}{data}};