#!/usr/bin/env perl
use strict;
use warnings;

use PDL;
use PDL::NiceSlice;

my $dec = pdl [[1,1,2,2,2],[10,15,13,11,4]];
my $min = $dec->(:,0)->minimum;
my $max = $dec->(:,0)->maximum;
my $v = zeroes(2,2);
$v(0,0) .= $min;
$v(0,1) .= $max;
$v(1,0) .= $dec->(:,1)->index(which $dec->(:,0) eq $v(0,0))->maximum;
$v(1,1) .= $dec->(:,1)->index(which $dec->(:,0) eq $v(0,1))->maximum;

print "$v\n";

exit;