package test0; $data = { k0 => [ 1,2,3, ], k1 => [ 1,2,3, ], }; return (__PACKAGE__); 1; #### #! use strict; use warnings; my $pmfile = shift @ARGV; my $pm = require "$pmfile"; no strict 'refs'; my $pckg = ${ $pm . "::data" }; use strict;