#! perl -slw
use strict;

my %data = map{ /^(.+):(.+)$/; $1 => $2 } <DATA>;

print "$_ : $data{ $_ }" for sort keys %data;

__DATA__
a:1
b:2
c:3
d:4
e:5