#!/usr/local/bin/perl

use strict;
use warnings;

my $p = 9;
if ( $p )
{
  sub
  { printf "$p < 3 ? %s\n" , $p  < 3 ? 'yes' : 'no';
    return 0;
  }->()
  or
  sub
  { printf "$p > 3 ? %s\n" , $p  > 3 ? 'yes' : 'no';
    return 0;
  }->()
  or
  print "I forgot my Math: $p <!> 3!\n"
  ;
}