print map {join('',@{$_->[1]})."\n"} sort {$a->[0] <=> $b->[0]} @$ref;