#!/usr/bin/perl

sub foo {
  &bar(1, 2, 3);
  &bar; # silently passes on @_
}

sub bar {
  print "@_\n";
}

&foo('a', 'b', 'c');