Very true, corrected code:

my @array = ( 99, 67, 0, -100, -38, 98);
my ($min, $max) = (sort {$a <=> $b} @array)[0,-1];
[download]

Update: Cut n paste error fixed, thanks plobsing and ikegami