my @trail =('hellhound','hellhound');

package vain;
use vars qw($love @love %love);

$night = 'dark';
undef $night;

my $bad_sign;
    $born++;

my $broom = new Blues;
$broom->dust();

package Y;
use 5.6;
our $funeral;
my $trial;

##</code><code>##

@stuff = ('jams', 'hams', 'rams');
shift @stuff;