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