sub numbers {
     my $b=shift @_;
        print "$b";
     }