Select Code to Download

\@foo

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

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

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

if ($idx2 >= $idx1)

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