use strict;
use warnings;

my $str = 'Welcome';
my @array = qw(to the world of);

serious ($str, \@array, 'Perl');


sub serious {
    my ($str, $arrayRef, $constStr) = @_;

    print join (' ', $str, @$arrayRef, $constStr), ".\n";
}

##</code><code>##

Welcome to the world of Perl.