my $foo = 1;

if ($foo eq "1") {
   print hello();
}

sub helloBROKEN {
   print "hello world\n";
}