die Funktion p_foo hat keine Parameter, was durch die leere Klammer des Prototypen angezeigt wird.
Und deswegen ist $_[0] immer undef.

Dann evaluiert:
  my $n = 12 * ( $_[0] // 1 );
zu:
  my $n = 12 * ( undef // 1 );
was dann 12 ist.