#!/usr/bin/perl

@fp = (*f1, *f2);

sub f1 {
  print "f1\n";
}

sub f2 {
  print "f2\n";
}

*f = $fp[2];
&f;
exit 0;