#!/usr/bin/perl

use strict;
use warnings;

sub foo {
    print "Foo: [@_]\n";
    shift;
}

sub bar {
    print "Bar: [@_]\n";
    &foo;
    print "Bar: [@_]\n";
}

bar 1, 2
 
__END__
Bar: [1 2]
Foo: [1 2]
Bar: [2]