abc('hello', 3271, 33, 44);
sub abc{
        my $a = shift;
        print "$a $_\n" for (@_)
}