ul.pl

#!/usr/bin/env perl

use strict;

my $someValue = "Hellow";
my $somevalue = "World";

sub helloWorld{
    my $say = shift;
    print "${say}\n";
}

sub helloworld{
    my $say = shift;
    print "${say}${say}\n";
}

helloWorld($someValue.$somevalue);#HellowWorld
helloworld($someValue.$somevalue);#HellowWorldHellowWorld