#!perl
use strict;
use warnings;
$|++;
my ($comp,$first,@sec);

#$comp = "descr is ".(defined $first ? q{$first} : <C>null').