#!/usr/bin/perl -Tw
use strict;

# These are for one thing
use vars qw/$foo $bar $baz/;

# These are for another thing
use vars qw/$bimm $bamm $boom/;

# Now do one thing or another...