print &zero, marine();
sub zero { 'red ' }
sub marine { $tom_clancy = 'october' }