sub test { print "Hello!\n" ;}
my $test = 123 ;

@l = GET_PACK::entrys('main' ,
'$' => 1 ,
'@' => 1 ,
'%' => 1 ,
'&' => 1 ,
'::' => 1 ,
) ;

foreach my $l_i ( sort @l ) { print "$l_i\n" ;}