my @funcsToCall=qw/check scan something/;
while(<*.pu>)
{
  do $_;
  map{&{$_}} @funcsToCall;
}

##</code><code>##

sub scan{do scan stuff;}
sub check{etc;}
sub something{yeah}