Subroutine Perl

  1. Home
  2. Perl
  3. Subroutine
  4. Passing References to a Subroutine
#!/usr/bin/perl
use warnings;
use strict;
my $a = 5;
increment(\$a);
print $a;
sub increment {
    my $reference = shift;
    $$reference++;
}