use strict 'vars';
use vars qw( $data $data_ref );
$data = "Just another Perl hacker\n"; # must be global
$data_ref = 'data';
print $$data_ref;