Suppressing Warnings (3)

• That "Perl 7-ish" program corrected

        $ cat foo7a.pl 
        my ($i, $j, $k);
        $i = 'foo';
        {
            no warnings 'uninitialized';
            $k = $i . $j;
        }
        print "$k\n";

continued...