If u wish please, try this code
sub coor { my ($a,$b)=@_; $f=$a+109; $g=$b+5; return($f,$g); } @y1_opp=&coor("1","2"); print "@y1_opp\n";
In reply to Re: subroutine..help
by gube
in thread subroutine..help
by dee00zee
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |