#!/usr/bin/perl -w
%testhash = (
        "label1" => "220",
        "label2" => "221",
        "label3" => "222",
        "label4" => "223",
);
open (CCOL, ">ccol")
|| die "Cannot create ccol\n";
while (($key,$value)=each %testhash) {
        print CCOL "s/{$key}/$value/g\n";
}
close (CCOL);