my @subs;

my $ini = 'test.ini';

use Config::IniFiles;

my $cfg = Config::IniFiles->new( -file => "$ini" ) 
||  die "Error: Probleme beim Lesen der Ini-Datei";

foreach ($cfg->Parameters('do')) {
	push (@subs, $cfg->val('do', $_ ));
}


foreach (@subs) {
	$_->();
}

sub1 ...