#!/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());