use Benchmark::Timer::Class;
 use Array::Parallel;
 @y = (h, c, i, o);
 @u = ('a', 'b', 'c', 'd');
 $obj = Array::Parallel->new(\@y, \@u);   
 $th  = Benchmark::Timer::Class->new($obj);
 ($y, $u) = $th->sort('cmp');
     for my $n ( (0 .. $#{@{y}} ) ) {
         print "$u->[$n] is mapped to $y->[$n]\n";
     }
  $th->report();