chomp(my $a = <STDIN>)