my @t = qw/one two/;
  my $y = ( 'larry', 'moe', @t );
  print "$y\n";                    # prints 2
  $y = ( 'larry', 'moe', @t[0,1] );
  print "$y\n";                    # prints two