sub foo{
  return ('blue', 'green');
}
my $var = \(foo());
say Dumper($var);
# Prints $VAR = \'green';