sub mydiv {
  my ( $divided, $divisor ) = @_;
  $divisor ? $divided / $divisor : undef;
}

my $growth = mydiv($fig_2, $fig_1);