my ($key,$val,$keyprev); open(fh,'< file.txt'); while (){ $keyprev=$key; ($key,$val)=split /\;/, $_; $key=$keyprev if($key eq""); print "$key :: $val\n"; } close fh;