#!/usr/bin/perl --
package xyz;
require Exporter;
*import = \&Exporter::import;
use strict;
use warnings;
our @EXPORT_OK = qw(@overall @electronics @safety);
our @products  = (
    [ "MG-20", 1,  2,  3 ],
    [ "JU-54", 2,  3,  1 ],
    [ "HY-21", 3,  1,  2 ],
    [ "OK-34", 4,  10, 5 ],
    [ "GT-75", 9,  6, 0 ],
    [ "KJ-23", 6,  8,  7 ],
    [ "PO-65", 7,  5,  10 ],
    [ "HN-34", 8,  6,  9 ],
    [ "ED-23", 9,  7,  4 ],
    [ "FR-98", 10, 4,  8 ],
);
our @overall     = map { $_->[1] . ':' . $_->[0] } @products;
our @electronics = map { $_->[2] . ':' . $_->[0] } @products;
our @safety      = map { $_->[3] . ':' . $_->[0] } @products;
1;
__END__