#!/usr/bin/perl
our @fields;
use mem(@fields=qw(one two three));
use Data::Vars \@fields, {one=>1, two=>2, three=>3};
use P;

my $self=main->new();

P "one=%s, two=%s, three=%s", $self->one, $self->two, $self->three;