A: my ($rows, $cols); B: use vars qw($rows $cols);