@bar = qw( one small step for man );
$foo = \@bar;
$foo->[1] = "big";
print "@bar";  # one big step for man