c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"sub going_down { sublevel_1(@_); }
 sub sublevel_1 { sublevel_2(@_); }
 sub sublevel_2 { sublevel_3(@_); }
 sub sublevel_3 { $_[-1] = 'foo'; }
 ;;
 my @ra = qw(a b c d);
 dd \@ra;
 ;;
 going_down(@ra);
 dd \@ra;
"
["a", "b", "c", "d"]

["a", "b", "c", "foo"]