sub Foo
   {
        # Arguments: ARRAY <- ARRAY
        my ($ich, $bin) = @_;

        # Local variables: SCALAR,SCALAR,...
        my $x, $y, $z;

        # Local constants: ARRAY <- ARRAY
        my ($ein, $berliner) = qw [ jelly donut ];

        # Single constant: SCALAR <- SCALAR
        my $go = 5;
   }