my $subroutine  = \&factorial;      # strict okay
    print $subroutine->(7), "\n";