Function reference in perl

funcref.pl

#!/usr/bin/perl -w
#
use strict;

sub arg {
	my @args = @_;
	print "arg - " . join(' ', @args) . "\n";
}

sub farg {
	my @args = @_;
	print "farg - " . join(' ', @args) . "\n";
}

my $fref;
foreach my $i (0..8) {
	if ($i % 2) {
		$fref = \&farg;
	} else {
		$fref = \&arg;
	}
	&$fref("a1", "a2", $i);
}

output

[tommi@tandoori tmp]$ perl te.pl 
arg - a1 a2 0
farg - a1 a2 1
arg - a1 a2 2
farg - a1 a2 3
arg - a1 a2 4
farg - a1 a2 5
arg - a1 a2 6
farg - a1 a2 7
arg - a1 a2 8