#!/usr/bin/perl
use strict;
sub foo($);
my @ary = (4,3,2);
foo(@ary);   # no compile time error

sub foo($) { print shift }