#!/usr/bin/perl -w

use strict;

oneMethod(1,2,3);

sub oneMethod {
    print "In oneMethod, arguments are @_\n";
    anotherMethod(4,5,6);
    print "Back in oneMethod, arguments are @_\n";
}

sub anotherMethod {
    print "In anotherMethod, arguments are @_\n";
}