#!/usr/bin/perl
use strict;
use warnings;

yes_ampersand("yes\n");
no_ampersand("no\n");

sub foo {
    print $_[0];
}

sub yes_ampersand {
    print $_[0];
    &foo;   
}

sub no_ampersand {
    print $_[0];
    foo;    
}