use strict;
no strict 'refs';

sub a1 { print "a1\n" }
sub a2 { print "a2\n" }
sub a3 { print "a3\n" }
sub a4 { print "a4\n" }

foreach my $num (1..4) {
   my $sub_to_call = "a".$num;
   &$sub_to_call;
}