Perl output overwrites itself
while ($line = <INPUT>) {

        chomp $line;
        $line =~ s/ //g; 
        printf "@attribute %s nominaln", $line;
}
	
$line =~ s/s//g;