foo(1,2,3,9);
sub foo {
    my $scalar = @_;
    my( $one, $two, $three, $four ) = @_;

    warn $scalar;
    warn "$one $two $three $four ";
}
__END__
4 at - line 6.
1 2 3 9  at - line 7.
[download]