my @file = ; chomp @file; %data = split(/:/, join('', @file));