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


##</code><code>##

my ($filemode) = ("immolate"); # list context

##</code><code>##

my $filemode = "immolate"; # scalar context

##</code><code>##

my $count = @_; # get the length

##</code><code>##

my ($count) = @_; # get the first arg