my ($source, $destination) = get_elements ;
  scan_matrix $mode, $source, $destination;