use Sort::Key::Multi 'iikeysort';
@sorted = iikeysort { /^(\d+)x(\d+)$/ } @a;