sub Hello{
my($text)=@_;
print $text;
}

##</code><code>##

sub Hello($text);

$a="Hello World";
Hello($a);
sub Hello{
my($text)=@_;
print $text;
}