$a = 1.2.3;
 		
print $a; #printing junk characters

#####################

$a =1;
$b =2;
$c =3; 		
print $a.$b.$c; #printing 123

############## 

func (1, 2, 3);

sub func
{
	my ($a, $b, $c) = @_;
		
	print $a.$b.$c; #printing 123
}

##############