Strange behaviour of PL/Perl

Hello All!

I just included PL/Perl language in my database.
Created function:

CREATE FUNCTION and_with_mask(int2, int2) RETURNS int2 AS
'
return $_[0] &
$_[1]
' LANGUAGE 'plperl';

select and_with_mask(4,1);
and_with_mask
---------------
0

select and_with_mask(8,1);
and_with_mask
---------------
0

select and_with_mask(16,1);
and_with_mask
---------------
1

select and_with_mask(32,1);
and_with_mask
---------------
1

And just in Perl:

#!/usr/bin/perl
$val = 32 &
1;
print("val = $val\n");

val = 0

Where am I mistaken or something is in PL/Perl?

--
with respection Andrey Feofilactovich.
e-mail: feo(at)ttn(dot)ru, feo(at)feo(dot)org(dot)ru
ICQ: 28073807