#!/usr/bin/perl use strict; use warnings; print pop @{[sort ()]}; exit; _ _DATA_ _ 2.0.01.00.05 2.0.01.00.06 2.1.00.00.01 2.0.02.00.01 2.0.02.00.02