sub get_list  { return ( 4, 5, 6 );            }
sub get_array { @x =   ( 4, 5, 6 ); return @x; }