Select Code to Download

my @vslice = (['b','c'],
              ['i','j'],
              ['y','z']);

my @yxslice = ( ['b','i','y'],
                ['c','j','z'] );

#! perl -slw
use strict;
...
          [ 'b', 'i', 'x' ],
          [ 'c', 'j', 'y' ]
        ];

sub vslice  (\@@) { map{ [@{$_}[@_]] } @{+shift}; }
sub yxslice (\@@) { 
    my $aref = shift; 
    map{ my $i=$_; [ map{ $_->[$i] } @$aref ] } @_; 
}