#!/usr/bin/env perl
use strict;
use warnings;

sub hello { print "Hello $_[0]!\n"; }

*hi = \&hello;

sub bonjour { &hello }

hello ('there');
hi ('world');
bonjour ('Alain');