use Sort::Key::Multi qw(n2_keysort);
my @data = <>;
my @sorted = n2_keysort { (split)[1, 0] } @data;
print @sorted;