my @array = caller;
${$"{array}::b"}->[1] <=> ${$"{array}::a"}->[1]