sub x
{
   ('a', 'b', 'c', 'd');
}

sub a
{
   { x };
}

sub b
{
   $x = { c };
}

sub c
{
   { 'a', 'b', 'c', 'd' };
}

sub d
{
   { ('a', 'b', 'c', 'd') };
}

print a, "\n";
print b, "\n";
print c, "\n";
print d, "\n";