sub gen_ref {
  [@_];
}

print gen_ref(), "\n";
my $keep_ref = gen_ref();
print $keep_ref, "\n";
print gen_ref(), "\n";