... or use Sort::Versions; from the synopsis:

use Sort::Versions;

@l = sort { versioncmp($a, $b) } qw( 1.2 1.2.0 1.2a.0 1.2.a 1.a 02.a )
+;
[download]

-- Hofmator