foreach $line (@data) {
        @line = split(/:/, $line);