use strict;
use warnings;
#use 5.012;  #enables say()

use subs qw( say );

my $verbose = 1;  

sub say {
    if ($verbose) {
        print shift, " world\n";
    }
}

say 'hello';

--output:--
hello world