my @sorted = map {'a-' . $_} sort {$a <=> $b} map {substr($_, 2, length($_) -2) } @data;