It's not an internal function, but it does work exactly as you describe:

#!/usr/bin/perl -sw

use strict;

sub somefunc(@)
{
  my $i = 1;
  grep { $i++ % 2 } @_;
}

sub func
{
  return (
      1 => "one",
      2 => "two",
      3 => "three",
      );
}

print join(" ",somefunc func());
[download]