#!/usr/bin/perl -w
use strict;
my $str1 = hi();
my $str2 = hello();
my $str3 = hola();

sub hi { "hi" }
sub hello { "hello" }
sub hola { "hola" }

print "$str1,$str2,$str3\n";