my @array = qw(a b c d);
my $r = sub { \@_ }->(@array);
my $a = cdr($r);

print "arr: @array\n";
print "a: @$a\n";
print "r: @$r\n";
$array[2]="hello";
print "arr: @array\n";
print "a: @$a\n";
print "r: @$r\n";

sub cdr {
  my $r = shift;
  my $a = sub { \@_ }->(@$r);
  shift @$a;
  $a;
}