#!/usr/local/bin/perl
use strict;
for(my $i=1; $i<=2; $i++) {
  my $a = 'test'.$i;
  eval "&$a";
}


sub test1 {
 print 'test1';
}

sub test2 {
 print 'test2';
}