sub x {

my $value = shift;
say "$value";

}