@l = ( "a", "b", "c" );
*m = \@l;
$m[0] = "z";
print "@l\n";