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],
}