$ perl
my @a = qw/a b c d e/;

sub printthese {
  local $, = ', ';
  print @{$_[0]};
  print "\n";
}

printthese( [ @a[0, 2, 4] ]);
^D
a, c, e