#!/usr/bin/perl -w
use strict;

my $function = sub {
    @_ = ( 1, 2, 3, 4, qw/5 6 7 8 9/, );
    do {
      next if $_ % 2;
      eval { $_ = @_[ 0 .. $_ ] };
      print <<IT
$_
IT
    } for @_;
};

$function->();