my %labels = map { @$_->[0] => @$_->[1] } @$table; my $values = [map ( $_->[0] , @$table )];