use Data::Dump qw/ dd/;
use xyz qw/ @safety /;;
dd( \@safety , \@xyz::safety );
__END__do {
  my $a = [
    "3:MG-20",
    "1:JU-54",
    "2:HY-21",
    "5:OK-34",
    "0:GT-75",
    "7:KJ-23",
    "10:PO-65",
    "9:HN-34",
    "4:ED-23",
    "8:FR-98",
  ];
  ($a, $a);
}