open(FOLKS, "folks.txt") || die "can't open folks: $!";
while (<FOLKS>) {
  chomp;
  ($number, $addr1, $addr2, $addr3, $addr4) = (split /,/)[0,1,2,3,4];

##</code><code>##

$label1 = "fee"
$label2 = "fi"
$label3 = "fo"
$label4 = "fum"

##</code><code>##

print "$label1,$number,$addr1\n";
print "$label2,$number,$addr2\n";
print "$label3,$number,$addr3\n";
print "$label4,$number,$addr4\n";