package Config; use base 'Exporter'; our $ERRMSG = { 123 => 'Some string error1', 456 => 'Some string error2' }; our @EXPORT_OK = qw($ERRMSG); our %EXPORT_TAGS = ( sms => [qw($ERRMSG)] ); package Foo; use Config qw(:sms); print $ERRMSG->{123}; print $ERRMSG->{456};