# different instructor -- she knew about references ;)
sub array_cmp {
  my ($aref, $bref) = @_;
  my ($asize, $bsize) = (@$aref, @$bref);
  if ($asize != $bsize) { return 0; }
  # ...
}