sub get_values { my @a = ("a", "b", "c"); return @a }
$x = get_values;  # 3