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

##</code><code>##

my @some = (get_values)[0,2];