#!/usr/bin/perl

use feature qw/say/;
use strict;
use warnings;

sub half($) {
  return $_[0] / 2;
}

say half 3 > 2  ? 7 : 5 ; # 5
say half(3 > 2) ? 7 : 5 ; # 7
say half(3 > 2  ? 7 : 5); # 3.5