This does the same thing as above, but puts the results into a new hash for future use:

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"use List::Util qw(min max);
 ;;
 my %hash = (
   id1 => [ 1, 25, ],
   id2 => [ 1, 33, 0, 86, ],
   id3 => [ 1, 33, ],
   id4 => [ 1, 24, 24, 119, 24, 108, ],
   id5 => [ 1, 20, 0, 56, ],
   id6 => [ 29, 345, ],
   );
 dd \%hash;
 ;;
 my %minmax =
   map  { my $ar = $hash{$_};  $_ => [ min(@$ar), max(@$ar) ] }
   keys %hash
   ;
 dd \%minmax;
"
{
  id1 => [1, 25],
  id2 => [1, 33, 0, 86],
  id3 => [1, 33],
  id4 => [1, 24, 24, 119, 24, 108],
  id5 => [1, 20, 0, 56],
  id6 => [29, 345],
}

{
  id1 => [1, 25],
  id2 => [0, 86],
  id3 => [1, 33],
  id4 => [1, 119],
  id5 => [0, 56],
  id6 => [29, 345],
}
[download]