use 5.010;
use strict;
use warnings;

our ($xxx, $yyy, @xxx, @yyy);
*xxx = *yyy;  # alias

$xxx = 42;
say $yyy;     # says "42"

@xxx = (9,9,9);
say "@yyy";   # says "9 9 9"

##</code><code>##

use 5.010;
use strict;
use warnings;

our ($xxx, $yyy, @xxx, @yyy);
*xxx = \$yyy;  # alias $yyy, but not @yyy

$xxx = 42;
say $yyy;      # says "42"

@xxx = (9,9,9);
say "@yyy";    # says nothing

##</code><code>##

*answers_comments = one_param("answers","comments");

##</code><code>##

package ...;
sub answers_comments {
  ...;
}