use warnings;
use strict;

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

sub a {
   { x };
}

sub g {
   return  { x };
}

print a, "\n";
print g, "\n";