scalar variable

$a   = (1, 4);
print $a;               #print $a is 4
print "\n\n";

$a   = 1,4;
print $a;                #print $a is 1
print "\n\n";