@SortedData = sort { (split (/:/, $b))[-1] <=> (split (/:/, $a))[-1] } @Data;