my $bytes_used = 0;

foreach my $key ( @{ $response->{keys} } ) {
  $bytes_used += $key->{size};
}

my $num_keys = commify($#{ $response->{keys} });
$bytes_used  = commify($bytes_used);
...