#!perl -wl

use strict;

my %h;
$h{substr($_, 0, 1)} = substr($_, 2, 1) while <DATA>;
print "$_.$h{$_}" for sort keys %h;

__DATA__
1.1
1.2
1.3
2.0
2.1
2.2
3.4
4.5
4.6