#!/usr/bin/perl
# your code goes here

sub new {
	my ( $name ) = @_;
	
	return sub {
		print "$name, we are glad to see you!\nSo... how do you think, what do we want to tell you now?\nYes, you right!\n";
		print "Welcome onboard, $name!!!\n";
	};
}

my @mysubs = map { &new("$_") } 'Alex','Mike';

$_->() for @mysubs;