open IN, "file.txt";
while (<IN>) {split(/:/); $temp{$_[0]}=$_[1];}
chomp %temp;
print $temp{3};