my $a=$a[0];
print "$a\n";