$dec = pdl [[1,1,2,2,2],[10,15,13,11,4]];
my $min = $dec->(:,0) ->minimum;
my $max = $dec->(:,0) ->maximum;
print $max,"fwe\n";
$v = zeroes(2,2);
$v(0,0) .= $min;
$v(0,1) .= $max;

for (my  $i =$min; $i< 3; $i++)
{
	$v(1,$i-1) .= $dec->(:,1)-> index(which $dec->(:,0) eq $i)->maximum;
}