#!/usr/bin/perl
use strict;
use vars qw/ $foo $baz /;
$foo = 'bar';
$baz = 'qux';
$foo .= $bza;