my $a = <STDIN>;