mtg_pseudo.pm

# package mtg_pseudo;

my @p_emn = ( 414305, 414314, 414325, 414347, 414350, 414358, 414392, 414408, 414422, 414429, 414442, 414449, 414465, 414471, 414478, 414480, 414497, 414500 );
my @p_soi = ( 409742, 409744, 409760, 409774, 409787, 409791, 409797, 409832, 409837, 409840, 409844, 409856, 409865, 409869, 409898, 409901, 409911, 409913, 409924, 409938, 409947, 409952, 409962, 409969, 409971, 409977, 409988, 409993, 410008, 410022, 410027, 410034 );
my @p_ori = ( 398429, 398423, 398435, 398442, 398432 );
my @p_isd = ( 227419, 221222, 222108, 221190, 227090, 221215, 222117, 222114, 222115, 221173, 227072, 222123, 222107, 226755, 234433, 222906, 222183, 221185, 227290, 245251, 244687 );
my @p_dka = ( 227405, 226721, 242498, 247122, 253431, 244712, 262659, 262699, 242509, 253429, 244734, 262698, 244738 );
my @p_xln = ( 435390, 435410, 435174, 435227, 435244, 435328, 435347, 435393, 435402, 435409 );
my @p_rix = ( 439819, 439843, 439825, 439839, 439827, 439835, 439816 );

%pseudo  = map { $_, 1 } (@p_soi, @p_emn, @p_ori, @p_isd, @p_dka, @p_xln, @p_rix);
1;