for ( my $L = $tabs ->[10] ; $L; $L = $L->[0] )
{	
$m->[ $L->[1] ] = $L->[2];
}