my $scalar;
print $scalar "sausage";