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;
   }

##</code><code>##

     my $filename = "/path/to/file",
        $filemode = "immolate",
        $opmode   = "seek",
        $filetype = "image/gif";