use strict;
use warnings;

my @procs;


sub a1 {
	print("a1\n");
}

sub a2 {
	print("a2\n");
}


@procs = (&a1, &a2);

foreach (@procs) {
	$_;
}



##</code><code>##

"Useless use of a variable in void context at C:\test.pl line 19."