\@foo

##</code><code>##

   my_sub(\@alpha, \@beta, \@gamma);

##</code><code>##

my $hashref = \%myhash;
my $arrayref = \@myarray;
my $scalarref = \$myscalar;

##</code><code>##

my %newhash = %$hashref;
my @newarray = @$hashref;
my $newscalar = $$scalarref;

##</code><code>##

if ($idx2 >= $idx1)

##</code><code>##

$size = $#$fbits - $idx2;
push @$chunks, [ (bits2num( [ @prefix, (split //, '0' x $size) ])), @$fbits - $size ];