our $var; ##

##

use vars qw( $var );

##

##

use warnings;

##

##

#!perl -w

##

##

$func_ref[3]($var);

##

##

$func_ref[3]->($var);

##

##

$param_ref = \@_;

##

##

$param_ref = [ @_ ];

##

##

$_++ for values %hash;

##

##

$hash{$_}++ for keys %hash;

##

##

$_++ for @hash{keys %hash};

##

##

use bytes;

##

##

$INC{ 'bytes.pm' }++ 
  if $] < 5.006;
use bytes;

##

##

open my $fh, "<$filename" 
  or die "Cannot read $filename: $!";

##

##

my $fh = do { local *FH; *FH };
open $fh, "<$filename" 
  or die "Cannot read $filename: $!";

##

##

$object->$method;

##

##

$object->$method();