use Sort::Key::Maker iikeysort => qw(integer integer);
@sorted = iikeysort { /^(\d+)x(\d+)$/ } @a;