use 5.010;
my $x;

sub X {
    $x = shift;
   \$x;
}

say "${X(1)}${X(2)}";
say "${X(1)} ${X(2)}";
__END__
22
1 2