#!/usr/bin/perl -l
 
sub gen_arr {
  my $inner =shift;
 
  print my $outer = \"foo$inner"; # still a literal but not constant anymore
 
  return $outer;
}
 
gen_arr gen_arr;