print (reverse sort (split (/:/, $scalar));