#!/usr/bin/perl -l

use strict;
use warnings;

my @test=( sub { print 'test0' }, sub { print 'test1' } );

$test[$_]->() for 0,1;
# or even
$_->() for @test;

__END__