#!/usr/bin/perl

while (<>) {
  my ($n,$t) = split ' ',$_,2;
  open F,">","$n.label" or die "unable to open $n.label";
  print F $t;
  close F;
}