my $faz = 'foo' ;print$foo;