the fastest way:

use Sort::Key::Maker iikeysort => qw(integer integer);
my @sorted = iikeysort { /(\d+)\#(\d+)$/ } @data;
[download]