#!/usr/bin/perl

use warnings;
use strict;

sub a {
    @_ = qw(a b c);
    print "1\n";
    &b;

    print "2\n";
    &b();

    print "3\n";
    b();

    print "4\n";
    no strict;
    b;
}

sub b {
    foreach (@_) {
        print "$_\n";
    }
}

a();