my ($apple, $pear, $orange);        # lexicals

# or

our ($apple, $pear, $orange);       # lexically scoped package variables

# or

use vars qw($apple $pear $orange);  # global package variables