sub z {
    my $i =1;
    foreach (@_) {
        print "$i  : $_\n";
        $i++;
    }
}
sub x {
    &z;                   # 1
    &z( "good", "bye");
    &z;                   # same as one again
    &z();                 # called with empty list
}

x( "say", "hello");
[download]