#!/usr/bin/perl

use strict;
use warnings;

#my $f = \&push;              #no
#my $f = *push;               #no
#my $f = \&CORE::push;        #no 
#my $f = \&CORE::GLOBAL::push;#no 
#my $f = *CORE::push;         #no 
#my $f = *CORE::GLOBAL::push; #no 
#my $f = push; #who knows maybe it's magic or something... no

my @a = (1,2);
my $ele = 3;

#I just want $f to be a reference to "push".
$f->(@a,$ele);

print join("\n",@a),"\n";